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| 
DIF _ouTPUT 15-sep-t94s 23:43:35 VANoIT BL 


ss-32 V 
14-Sep-1 DISKSVMSMASTER: 


1 
cb OSReSoUTPUT .B32: 31 Aer (1) 


S= 


3 1 MODULE DIF OUTPUT ( ! Differences output routines 3 
3 § LANGUAGE (8L1S$32), 3 
Se aise a tngts ceereae NALSCONG. RELATIVE), 
$ = . 
3 5 IDENT = *v04-000' 3 
; fF BEGIN eS 
: ! leOeeRHeeKeReKeKeeHHAHeHeHeHHeeeeKeHeKeKKeeeeeeeeeaReKeteaeereeeneeeeeerener : 
5 ‘e * $ 
3 hs 1 !@ COPYRIGHT 4f hd be 1980, 1982, 1984 BY * 3 
:e 4 1 ie DIGITAL Foul T CORPORATION, MAYNARD, MASSACHUSETTS. ‘ ; 
; 1 1 is ALL RIGHTS RES RVED. : : 
: 1% 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; 615 15 1 !* ONLY IN ACCORDANCE WITH THE yenns OF reyes LICENSE AND WITH THE ®* $ 
; 18 i$ 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. $ SOFT WARE OR ANY OTHER * é 
; 1 1 1 !@ COPIES THEREOF MAY NOT i PROVIDED OR Stnenuise MADE AVAILABLE TO ANY ® | $ 
3 H 8 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 3 
3 1 8 ; :* TRANSFERRED. * F 
3 ‘e ® é 
3 1 1 1 te THE oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® é 
PF} § § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
; : Z ; + CORPORATION. : ; 
; § 5 1ie Ah Me ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: $ $ ; S93 OFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 7 : 
: i | : 
: $ ; : a capnanendenmenidenntndestemaetiaendineadlinmtmenesinninchiantmammmbdidimiemnnsidmamaemel | : 
3 1 3 
: 1 1 ; ed 3 
: 4 ¢ ' FACILITY: DCL Differences command | : 
; «35 5 1 | ABSTRACT: | ; 
3 1 The DCL DIFFERENCES command compares the contents of 3 
3 ; two files. : 
; 3 1 ' ENVIRONMENT: : 
3; 60 01: VAX native, user mode 3 
3 $3 1 : 3 
S toom 4 1 i ; 
: $3 3 ! AUTHOR: Peter George, Benn Schreiber CREATION DATE: 1-August-1981 : 
; ‘ 6 MODIFIED BY: 3 
> 48 8 | i v03-002 PCG0002 er Geo 11-Apr-1984 : 
: $7 ! Fix ACCVIO from stints £0. : 
: 1 3} 1/ v03-001 PCG0001 Peter George 13-0c t-1982 ; 
: ¢ § 1: Skip matches that preceee @ merged output section. : 
3 1 Do not put change ars in front of ignored headers. 3 
3 2 : ; Never output ignored records. : 
; 56 61 ; 


Bape: Se ee ae ee ats Wf Bena 


DIF OUTPUT 1$-se 1 243: VAX-11 Bliss-32 V4.0-74 P 
voezO00 12-803-198¢ #3549338 DISK SVMSMASTERSCDIF SRCSOUTPUT.832;1 me (28 
; H 1 LIBRARY 

; : *SYSSLIBRARY: STARLET.L32°; 

3 1 REQUIRE 

3 ? } aeouine *DIFPRE’; ! DIF prefix file 

> 64 1 "DIFDEF'; ! DIF data structures 

; ee 1: 

; 9] : : Difference global data 

; 1 EXTERNA 

3 3 1 . difSgl_commdesc : BBLOCK, ! Desc for buffer of comment delimiters 

3; 1 difSgl_cmdesc : BBLOCK, ! Descriptor for command Line 

‘< = 1 dif$gl ignore : BBLOCK, ! Flags of characters to gece 

cs 2 1 dif$gl_header, ! No. of Lines to skip as header 

; 74 1 difSgl_match ! No. of records that constitute a match 
ce 1 di f$gl-maxdif, ! Maximum number of unmatched records 

3 8 1 difS$gl_merged, ! No. of matched Lines to follow each List of differences 
i - 1 difS$gl parallel, ! Same as above for parallel 

; 1 difSgl_wndwsiz, ! No. of records to search defore 

re .., : aiteet_¢ on. een } declaring a mismatch 

Py $s : eo . a Ss 

; 1 1 Het ! No.of difference records found 

3 $ 1 dif$gl_difsec, ! No. of difference sections detected 

3 1 di f$ol-dunpyidth, ! Width of hex/octal data part of Line 

3 1 dif$gl_ertsperline, ! No. of entries on a hex/octal Line 

; 5 1 dif$gl-width, ! width of Lines in output | sting 

3 1 dif$gl_parwidth, ! width of Lines in parallel Listing 

3 1 di f$gl-inbuf ! Address of the input record buffer 

; BS | -{itegt-outhul 5 ner yecroe C. artes. i Wexfoctal foo full ting suffer, 

3 : 7 ' Hex/octa u 

3 1 Si ftatcteopertbut : BBLOCK, ! Hex/octal fao partial line buffer 

on} 1 dif$gl-faofulidesc : BBLOCK, ! String desc for hex/octal full output Line 
; 4 ' ,  GifSgl faeopartdesc : BBLOCK, ! String desc for hex/octal partial output Line 
; 9% i Input and output file date structures 

; % 1 dif$gl_masdesc : BBLOCK, ' String desc for input file 

§ Me teittc deg eces eSTortaateee ie 

; 99 1 dif$gl-revdesc : BBLOCK, i Strin dese for revision file 

9 1 dif$gl_revfdb : BBLOCK, } Revision file fdb 

; 101 1 aittatroutdes : BBLOCK, ! RAB for revision file 

3 4% § 1 dif$gl_outdesc : BBLOCK, } String desc for qutput file 

: : ' dif$gl_outrab : BBLOCK; ! RAB for output file 

: TER T 

: 1 ; “4 yp Pomel yy octal, ! Format a record in either hex or octal 
 % 1 ots$cvt_l_ti, ~ i Convert longword to text 

3 ; ! sys$fao; ~ ! FAO conversion routine 

; 11 1 FORWARD ROUTINE 

F} 14 1 additional_output, ' Output 2nd, 3rd, ... Listings 

; Ie 1 t rfateit. i Get record text using RFA 

eb 1 bs t_hex_octal, ! Prepare for hex or octal output 

3 (116 1 inseft_\Tnenum, ! Insert a Line # in output Line 


S= 


oa 


SS 


ViFWUN —ODOONOUS WN —“OVOO~rOu 


WN =O CONOVER SO OONOUE WN OO 


a ak a kk dd a td ed ed = 


SERA Se Ey ee ep et tat Sa tt A 


=O ODN WE WN 9 OD NAME A 0 ODNOAUNE WN S(O CONA UNE WO OO~nN 


POEAXEAAMAAAMNNIIN EE BEE EEE EE 


SSFES. 


a ce ek et tt 8 et a 8 8 tt a i et a 3 a a tt se 


output .chengeber. 
ar SL ng_trailer, 
output cmdfile, 

mdfao, 


output cmdentity, 
output_merged, 

output parallel, 
output_ separated, 
output sip, 
put_blank, 

put_desc, 

put_hex_ octal header, 
put_idline, 
put_parallel_idline, 
put_record, 
put_record_ascii, 

put _record_hex_octal, 
put_record parallel, 
translate_fabs, 
write_mismatch; 


cmd_bufpos, 
cr : 


ov 

ea 

7 

—e ee ef ee 
° 

a 


hexfull : 
hexheader : 
hexpart : 
octfull : 
octheader : 
octpart : 
slpoprs : 
stars : 


eocbeerrsssstiiiss 


LITERAL 


ffeed = 12; 


EXTERNAL LITERAL 


dif$_readerr, 
difS_writeerr; 


4 
15-sep-1984 $3:49:38 — DEScSvmthASTERSCDIE scSourpuT.e32;1°°%* (23 


Output in change bar format 
} wee aiette ratier 

: ile Line of trailer 

' Qutput command us "9 $FAO 

' Output counted entity 

' Output qeneens Line entity 

: n morons format 

' Output in parallel format 

' Output in separated format 

! Output in SLP format 

' a blank Line 

' Output a descriptor 

' Output hex/octal record header 
' Output a file ne 

' Output a parallel file id Line 
' Output a record in appropriate radix 
! Output an ascii record 

' Qutput a hex or octal record 

‘ put a parallel format record 
!' Convert tabs to blanks 

' Output records in a mismatch 


Oo Oo 
Cc Cc 
o 
0 
Cc 
tad 


Position for command output 


e 
a 


ee 
G (* seeCHANGEtee’), 
G ("Number of difference records found: ‘Z 


L") 
s myeeet of difference sections found: zL'5, 

@ ° 
COUHT7LCOML) HE EIZLAR f!6xXL") 
("RECORD NUMBER 'Z2L ('8XL) LENGTH !2L (!8XL) 'AS"), 
COMIVLCUZUCOKL) ELTLIZLAR SEE LOxL"), 
eee ) ee. HY e 
(*RECORD NURBER i27L (!BOL) LENGTH 'ZL (!80L) !AS"), 
(120L) FPttizear ff! eon’), 


! form feed character 


i 


4 
EcSepctBHe GEESE WIRE AGA eRe ht °s2Moureur.os2:1"2%* ost 


62 


a 


‘3 7 1 GLOBAL ROUTINE write_mismatch 3 
167 es BEGIN ’ ; 
; 189 oto 'ee : 
a | 47 : : 
; \? i } FUNCTIONAL DESCRIPTION: 3 
; 178 74 i When the end of a mismatch is detected, this routine is used t ; 
; 176 475 ; call the output routine for the a propciace user-specified output : 
; 175 6 : format. The order of the IF = THEN = ELSE statements is significant : 
; 178 7 ; because this control structure is imbedded in several other places : 
; 4 f } in the Diff code. : 
; 179 480 ' INPUTS: , 
; 181 4 No : 
: 18 C8 6 - 
3 137 : } OUTPUTS ; 
; i Bs difSgl_difsec is incremented ; 
; 189 8 i ROUTINE VALUES: : 
196 <3 | Always true 
3 136 $8 dif$gl_difsec = .difSgl_difsec + 1; ! Incr count of diff sections ; 
3 194 495 IF .dif$gl_ flags Cdif$v_parallel) ! Call appropriate routi : 
; 195 ss iHEN output parallel) gta wring : 
; 199 98 ELSE IF dt t8pt fogs Cdif$v_merged) : 
: 138 344 THEN output_merged () : 
3 200 301 ELSE IF 1 tS ol nes tee Cfdb$v_separated) : 
; 4 208 THEN output Separated (difSgl_masfdb) : 
; 08 504 ELSE IF G8 tpt route Cfdb$v_separated) ; 
; Bs : 5 THEN output Separated (difSgl_revfdb) : 
; 06 5 ELSE IF .difSgl_masfdb Cfdb$v_changebar) : 
; Og 298 THEN output _Cthangebar (difSgl_masfdb) : 
; 1 ELSE IF .dif$gl_revfdb Cfdb$v_changebar) : 
: 19 3H THEN output. Zhangebar (di fSgl_revfdb) : 
; Ig 318 § ese iF -ditSgl flags (di f$v_sip) : 
: + “18 THEN output slp 0); : 
> 215 316 RETURN true; : 
: 16 51 END; 
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+9 DIFSEC: .BYTE 


9 -BLKB 
OBC HEXHEADER: 
-BYT 
08D ASCII 


-ASCI1 
-BLKB 
HEXPART: .BYTE 
ASCII 


OCTFULL: .BYTE 
ASCII 


mmm 
aSSEconw 


BLKB 
BYTE 


st te tt 
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oo 


OCTHEADER 


& 
Y<cRo\ 


4 
"adc 
V<LF>\ 
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4 
<VT>\ 
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j 
\ te *CHANGE**#*\ 


9 
\Number of difference records found: '!ZL\ 


40 
\Number of difference sections found: !ZL\ 
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\File \ 
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NEEEZLCOML) SS!ZLAF !S6XLN 
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46 
\RECORD NUMBER !ZL (!8XL) LENGTH !2L (!8X\ 


wt) 'AS\ 
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NEEfZLC720L) P!!ZLAF !!60L\ 
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00000000v_ EF 


9 64 
00000000v_ EF 
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1986 93:19:28 


ASCII 


VAX-11 Bliss-32_V4.0-7 


“L) IAS\ 


3 

6 

yo\<BEr\SO/e\ 

12 

\seeeneneeane\ 
DIFSGL_COMMDESC 
DIFSGL-CMDESC, DIFSGL_IGNORE 
DIFSGL-HEADER, DIFSGL-MATCH 
DIFSGLMAXDIF, DIFSGL-MERGED 
DIF SGL- PARALLEL 
DIFSGL-WNDWSIZ, DIFSGL_FLAGS 
DIFSGL-DIFREC, DIFSGL_DIFSEC 
DIFSGL~ 16TH 
DIFSGL-ENTSPERL INE 
DIFSGL-WIDTH, DIFSGL_ PARWIDTH 
DIFSGL-INBUF, DIFSGL-OUTBUF 

DIF $GL—F AOF ULLBUF 

DIF $GL—-F AOPARTBUF 
DIFSGL-FAOFULLDESC ° 

DIF$GL—F AOPARTDESC 
DIFSGL"MASDESC, DIFSGL_MASFDB 
DIFSGL-MASRAB, DIFSGL_REVDESC 
DIFSGL-REVFDB, DIFSGL~REVRAB 
DIFSGL-OUTDESC, DIFSGC_OUTRAB 
DIFSFORMAT_ HEX OCTAL 
OTSSCVT_L_TI, SYSSFAO 
DIF$_READERR, DIF$_WRITEERR 
SCODES,NOWRT 2 

WRITE MISMATCH Save R2,R3,R4 
DIFSGC_FLAGS, R4 

DIFSGL Rai R3 

DIF SGL-MASFDB+ 

DIFSGL™ DIFSEC 

#6, DIF GL FLAGS. 18 

‘ ; OUTPUT-PAR 

3, DIFSGL_FLAGS, 2 

8 OUTPUT “MERGED 

#2, DIFSGL_MASFDB+36, 3$ 
 poonam MASFDB 

#2, DIFSGL_REVFDB+36, 5$ 
DIFSGL_REVFDB 


DISKSVMSMASTER: (DIF. sae OUTPUT .B32;1 
\RECORD NUMBER !ZL (!80L) LENGTH !ZL (!80\ 
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52 


54 


ag 
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3; Routine Size: 


118 bytes, 


00000000 EF 
05 
bc 
oc 
oC 
00000000v_ EF 
07 01 
09000000v 44 


i: sep-1 

if 7 4%: 
$ 5$: 
£9 $: 
i I “ 
if ot 
€9 8$: 
fF 

06 98: 


Routine Base: SCODES + 0000 


She 93:48; i DL SKSUMEMASTERSCDIF SRCSOUTPUT.832;1 


+ OUTPUT SEPARATED 
et “fASrDe 6$ 


so. . vepe+s6. &s 
*eurruy  CHANGEBAR 
$G6L ruts}: 9s 


Page 


7 
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se | 


5 
yoezo00 is Bee188e $3:i8:38 — DISKSvMRAASTERC COTA sacdourpur.e32;1 9% caf 


5 nt ROUTINE additional_output = 
BEGIN 


lee 
' 


FUNCTIONAL DESCRIPTION: 


Output any additional Listings, i.e. additional formats or radices, 
that have been requested. 


— + 


Be Se Oe Oe Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Ge Se Ge SH Se Ge Ss Se Se Se Se Ge Se Ge Se Ge Se Ge Se Se Se Se Se Ge Se Se Se Se Ge Ge Se Se Se eee 
PPATAAMUAE FFL EEE 
weer wo -oo 
LWT Teal valvalvalvahvah ahah ah alvalvalvalvalvalval PPI 
N MIMI E FRPP EEE 
ss COwNO UF WYO ws -—-o 
EEE BB APPIN IPIAIMIPIPOPIPIPIPPIPIPPIPIPIPIPIPIPPIPIPINIPOPIPIPIPIFUPUPIPIPIPIPIFIPUPUIFUIRIPURD — 


VEN OC OONOUS Ut" 0O@ 


i ROUTINE VALUES: 
i Always true 


~_ OC a 


save fle ags : BBLOCK (4), 
dashdesc : BBLOCK dsc$c in -pin}. 
Stardesc : BBLOCK Cdsc$c"s_bin 


Flag set if flags” first Listing 
save gt iSgl, ft 

Descriptor Ver | 

Descriptor for stars 


‘ 
: If SLP output, then cannot have any more output forms, so return. 


if .dif$gl_flags (dif$v_sip) 
fen herons true; — 


' 
Set up descriptor for stars. 


stardesc fdsc$u_ length) = .stars £0}: 


stardesc [dsc$a_pointer) = stars 
3S 
61 61 ' 1f init flag is still set, then no differences were found. 
$¢ So, cleanup current Listing, but don't output any Sddit ional Listings. 
64 564 ir -dif$gli_flags Cdif$v_init] 
re 362 _ fecin etn ggies ft Seite grottet? 
$s 

v4] Sey AND NO 1 .dits he, Logs ‘thy v¥8y rged) 
o8 Ht gi ase db tdb$ v Pseperated 
$ 28 1 ogitsgl- revfdb (fdb$v_separated 

0 ? THEN BEGIN 

71 7 put_desc (stardesc); 

. 276 ute “plank 0); 

74 574 RETURN true: 


Hboseontone 25:48:35 yancdt eusescs 


se 
g 


' 
If parallel output, then do special processing. 
if .difSgl_flags (dif$v_paraltet) 

ifin'a GIN’ al 


put_desc (dashdesc); 
a traps Line 


Rye blank (); ! Output 
F TNOT -di thal mastdb Cfdb$v_move] AND NOT .dif$gl_revfdb fdb$v_move]) 
THEN RETURN Erue; 1 NS 


! If no more output, then use common (non-PARALLEL, non-SLP) ending, 
and return. 


' 

i 

i 

' 

iF (NOT .dif$gl_masfdb Cfdb$v_move] AND NOT .dif$gl_revfdb [fdb$v_move)) 
THEN BEGIN 


If NOT .difSgl_flags CdifSv_merged] ' Output stars for all but MERGED 
THEN prs esc (stardesc); 
<4 put blank (J; ' Output a blank Line 
' 4 a true; ' ALL done 


' 
: Save flags so they can be restored Later 


For each Listing format, 


1. If first Listing, then 
reset 9g. 
output terminating Lines. 


PPB PPE FE PRE FP MMMM ININIININININININ|A MH MMMMGEPIPIPIPIPIPIPI HE HNN NIALAPOPIPOPIFND 
eo 
~*~ 
zZzaann 


; 

' p 

‘ Py ‘ 

0 it 

¢). el). 4 

Dg 60S save_ flags = .dif$gl_flags; 

10 10 ve_Tlag gi_ftlag 

11 611 $ 

\¢ og : Loop for all possible output formats. 

1% $14 2 INCR i FROM 1 TO 3 ' For each radix 

1? ot? DO BEGIN 

9 a1 (.1 EQL 1) AND .difSgl_flags C(difSv_asciiJ]) OR ! If radix specified 

18 o18 (.i EQL $} AND .dif$gl_flags [difSv_hex]) OR 

1 61 (i EQL 5) AND .dif$gl-flags (dif$v_octal)) 
f THEN BEGIN ! Then generate requested Listings 
§ § IF (.i NEQ 1) AND (NOT .first) ' If hex or octal, and not already inited 
? og? THEN init _hex_octal (); ! Then init 
i 
1 


erty P 
«SRC JOUTPUT .B32; 1 


$$ first = false; ! Note that first Listing is now done 
dashdesc (dsc$w_length] = .dif$gl_parwidth; i Build and output Line of dashes 

; dashdesc Gecse_gojnter) = dif t outbuf; 

BS CHSFILL (ZASCII~'=", .difSgi_parwidth, .dif$gl_outbuf); 


more Listings? = then return 
ELSE first = true; ! Note that first Listing is not yet finished 


5 
1Soseontgee 13:79:38 — DESkSVMGMASTERSEDIF saCSouTpuT.832;1°°%" (29 ve 
2. If not a tices Uiecing. then 


fistige: so that header will be output 
output | 
output Sovatalt tes Lines. 


-dif$gl_flags (dif$Sv_merged] ! Generate MERGED output 
iftn Becin . more . 
If . first 
THEN first = false 
ELSE 0F6 
dif gl. loge Cai tv. init] = true; 
output “merge 
END; 
put _blank (; 
ND; | 
sii tal ae masfdb (fdb$v_separated] ! Generate SEPARATED output for master file 
if _ 
THEN first = false 
ELSE ocein 
difS$gl_flags Cdif$v_init] = 
output. “separated (dTf$gl_ masfdb); 
t_desc cqtardese)s 
put “blank (); 
ND; 
i tat revfdb Cfdb$v_separated] ! Generate SEPARATED output for revision file | 
THEN BEGIN 


first 

THEN first = false 

ELSE organ 
dif$gi_flags Cdif$v_init) = 
output _ “separated (dTf$gl_ sovtabhs 


tadesc (stardese); 


put-pt 0; 


0) teat masfdb (fdb$v_chargebar] ! Generate CHANGE _BAR output for master file 
THEN BEGIN 


sfirst 

THEN first = false 

ELSE BEGIN : A 
difSgl_fiags Cdif$v_init] = 
output “changebar (dTf$gl_ nasfdb): 


t.desc (stardesc); 
put blank (); 
Sgt rev idb Cfdb$v_changebar) ! Generate CHANGE _BAR output for revision file 


If .first 
THEN first = false 


tg oor198e 13:15:38 — DIRKSURGMASTERCEDIF sacSourput.es2:1°°% «43 
an oi fsgt.. flags Cdif$v_init] = } rue; 
output “changebar (dTf$gi_revfdb); 
put. Sree (stardesc):; 


i 
2 
62 


: 394 t-b ); 3 
: $95 4 BND? 
; : END; : 
4 ' ; 
3 Z If done “en @ radix, then clear that bit. : 
3 4 F 
; ¢ § ineh be Le fiegs CdifSv_ascii] = false : 
; 405 ines di fSol_flags (di f$v hex] = false 3 
; res ELSE difSgi"flags (dif$v_octal) = false; : 
; 4 ND; ; 
; 209 , : 
; $10 : F 
; i} i restore flags é 
; £18 difSgl_flags (dif$v_ascii] = .save erflags (di tSy ascii; ; 
3 416 dif$gl flags (difSv_hex] = .save_ Tops $v_hex 3 
: $1? difSgl_flegs (dif$Sv_octal) = wg flags CdifSv “octal); : 
: 23 RETURN true; 3 
; 418 END; 


OFFC ENTRY TRO. ie Save R2,R3.R4.R5.R6,R7,- ; 0518. : 

EF 9€ MOVAB Put. bese ; | ; 

F 9E MOVAB PUT" BL 3 $ 

E MOVAB DIFSGL AREVEDBS R9 : ; 

MOVAB DIF SGL-MASFDB+ 36. R ; : 

MOV BIE SGL FL FLAGS, F | ; 

C SUBL2 #16 : | : 

A BLBS dIFSGL L_FLAGSe] 6$ : 31 : 

EF MOVZBW STARS, “STARDESC ; 0557. : 

04 F MOVAB STARS*+1, STARDESC+ : 0558 | : 

12 1 5 C #5, DIFSGL_FLAGS*+1, 18 > 0564 : 
A BBS #6. DIFSGLIFLAGS. 6$ ; F 
$ BBS a. BIE SSL FLAGS 4 : 056 : 
BBS #2. DIFSGL-MASFDB+36, 6% 3 $8 : 

se BBS ‘ ; DIFSGL-REVFDB+36, 6$ ; $9 : 
31 é BBC #6, DIFSGL_FLAGS, 28 F : 
CLAL FIRST : ; 

“s eB mOVL DIF GL PARUIDTH, RI ; | : 

0 dD ROVE DIF SL OUTBUF, RO ; 0586 : 


EN a I aa ea NR Ee eT EN LA SO AE! 


GEE eee eee. ime 


were Wwe 
Woezeo 1}-sep-1964 43:18:38 DESKeuMRMASTERcCDIE sacSourpur.es2;1°°% «23 


A mov RO, DASHDESC+4 F 
$1 2D se: af 5° moves * (SP), 355° R1, (RO) ; 0585 
08 9F PUSHAB DASHDESC + 0586 
g HEE Be Be tet ose 
20 es Bet #3. D FSGL_MASEDB* 36, 7$ ; it 
BBs #3. DIFSGL“REVFDB+36, 3$ — 
5 3 MOVL #1, FIRST : 0361 
4 BBS #3. DIFSGL_MASFDB+36, 7$ : 0598 
BBS #5; DIFSGL“FLAGS, : 9600 
f D 5 4S: PUS SP + 0601. 
68 FB 00098 CALLS #1, PUT_DESC : 
6A i f 10 58: CALLS #0. PUT"BLANK : 
55 p Al 7$: mOvL DIFSGL_FLAGS, SAVE _FLAGS ; 09 
D4 QOOA7 8S CLRL OR + 0617. 
01 if: A cm #1 : 
D INCL =o : 
1 008 BLBS DIFSGL_FLAGS, 138 : 
0 2 ° B35 9S: on 145! ; 0618 
0c ? 1 € BBS “i, BIFSGL_FLAGS, 13$ ; 
3 é C108:  CMPL 1a + 0619 
0OA oe nis: Beat B88 
F9 ? ; E1 000C4 128: #2, DIFSGL_FLAGS, 118 ; | 
1 ; C8 138 C rs ; 0622 | 
; $ EB 000cD Hit is 148 : | 
00000000v EF F 09 CALLS *). INIT_HEX_OCT ; | 
15 67 e} 148: 6BC é DIFSGL FLAGS. 178 F OeSs 
6 £9 00C BLBC Os FAST, 1 ; 
6 b4 CURL FIRST ; 064 
sosmesedl Hb SEE agg, GALLE. gurPuTaCeD : 
1D 68 Fo 198: «BBC a2 IFS L MASFDB+36, 208 3 
9 BLBC —E_s«sFXIAST, 1 3 2 
ee Gaeta 2 
oer xe Mey lat, Gir purse seen 8 
00000000v EF FB CALLS i OUTPUT _SEPARATED ; | 
F D0 198 PUSHL SP > 0657 
oh f FALLS 80° PUT Be ANK S 0658 
1D 69 208 BBC te DIF SOL REVFDB+36, 23 ; 0661 | 
BLBC —_sd&FLIAST, ; 3 
geet Sues : 
01 «a? 5 £8 218: Blse2 & . DIFSGL_FLAGS+1 0666 


---- - - - 


oe 
wae 


3; Routine Size: 426 bytes, 


00000000v 


01 
00000000v 


01 
00000000v 


Routine Base: 


EF 


Pols 


A7 


Fess 5 


oC i 


Wwrvnuno — 


—OnNo— fw 


yo Pe Pl 4 -—eomnnOTm -—omm~a~Onm ~nOT 
CoOo"0O%0— > - PN — > SeDow \e—-FSOBaoe 2S=F Sox 


SCODES + 0076 


re 
‘es 


ww 


— 


st 


SP AAA AMMAN 

WIS BAN TALSASALSSANVASLSAS SAGs 
> 
 y 


== 


=< 


SOoOOOOOOoOoOoOoOoOoOoOoOoOOoOoO ” 


2s 


+++ +++ ++ 7+ +++ + + +> 


2s 


> —?- 


elo 


Po on oes 


2s 


SSS 
— st 8 a 


SR=22 
¥ 


~™ 
ww 
aad 


~N 
ww 
NR 
Ae 
“ef 


Soc}94e 48:3 


PUSHAB 
LS 


DB—M—- M— POWVIDIOVDIOIOOvVvovesTan 
wh tot tet tated tt ft tte ht Pt tt 
<n~<n<r@w wor a ot @ 
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VAX-11 Ot issese v4.0-7: 
DISKSVMSMAS 


DIFSGL REVE DE 
#1, OUTPUT SEPARATED 


; DIFSGL_FLAGS*1 
$GL_MASF 


‘1. OUTPUT_CHANGEBAR 


#1, PUT_DESC 
#0. PUT” 


#1. DIFSGL_FLAGS 
328 

#2 
#2, DIFSGL_FLAGS 
#4, DIFSGL_FLAGS 
#3, #1, 1,78 
SAVE FLAGS, #0, #1, DIFSGL_FLAGS 
#1, Bi, SAVE_FLAGS. R 

. #1, #1, BIFSGL_FLAGS 
#2. #1. SAVE FLAGS, R 
RO, #2, #1, BIFSGL_FLAGS 


20-76 P 
ER: COIF.SRCJOUTPUT .832;1 


age 


13 
(4) 


Hosen 1966 95:48:38 


a 
= 
| 
| 


5706 ay cadfao Cot tree. -dif$gl_difrec); 
output_cadentity (0); 


; 6 71 ROUTINE output _Listing_traile 
i He GLOBAL NE outpu 9. rs 
OR ii 
; 45 7e i FUNCTIONAL DESCRIPTION: 
; 2 ; i $ ; Output the trailer for the Listing. 
2: 7 i INPUTS: 
&. 18 § i 
3 : , } None. 
; i ° 
: ? , § OUTPUTS: 
3 2 5 4 ; The trailer is output. 
; 4 ? i ROUTINE VALUES: 
: 6 7 i Always true 
3; 640 7 S : _— 
ere rey 5S Loca 
; 443 br Linedese : BBLOCK Cdsc$c_s_binl, 
: ‘ 
; 445 0744 aes . ! mask 
3 “ {oF outdesc : BBLOCK (dsc$c_s_bin]; 
; rr 45] cmd_bufpos = 0; ! initialize output routine 
; 450 769 IF :difsgt tl flags (dif$v_sip) ' if SLP 
3 4 § 751 L -~ Be dsc$w_length) = 
; 4 07 § Linedesc Cdsc$a_pointer) = ‘ipuite /*); 
; 4 07 Reto goee (Linedésc); 
3; 455 754 rn true; 
; 4 755 
; 2 ree § 
; 45 , 8 Output the number of difference sections. 
; rr 769 eG cadfao Let tage. « -dif$gi_difsec); 
; 46 076 output_cadentity ( 
: 8 bres 5 
: 665 0764 Output the number of difference records. 
: 471 i kip 4 Line and then output the command Line. 

BiB Loe ne 

; rth {hh put blank (); 

: 676 0775 2 output_cmdcounted (cstring ("DIFFERENCES ')); 


! Local string descs 


ua lis 
SMASTE 


! Then just output slash 


TS tA 


R: (DIF. Osh SouTPUT .832; ;1 


a 


62 
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5 
vos=000 WEseoctgde GEAESE  WMEcAABSMted2 at %skeSoureur.oses”*% 


; «6 7 

; cf i ft ,O1 FS gt flops (di f$v_ignore) ! / IGNORE 

: 6 ; BEGIN 

; 4 7 BIND 

; 4 7 list = 4 a ( 

3 4 07 UPLIT Cign$m_binklin, ZASCIC ‘BLANK _LINES"), 

; 4 7 UPLIT 9] erae.comments, ZASCIC ° i) F 

; 485 07 UPLIT CignSm_exact, etd *EXACT’) 

; 4 0785 UPLIT (ign$m_fornfeed, EASCIC {FORA FEEDS"), 

3; 4 07 UPLIT (ignSm_header, ZASC : *WEADER'), 

; 4 D7 UPLIT (i sa_pre ty. east} etTy’), 

3 $33 UPLIT (ign tra » nk, ZASCIC * TRAILING SPACES") 
: 490 Y4 sare gurtit (ign$m-spacing, ZASCIC “SPACING'S> : VECTOR C, LONG); 
: 49 079 DECR 4 FROM .List (-1] - 1 10 0 

; 494 079 mask = mask OR C. - bist {.i] AND .dif$gl_ignore); 

3; 495 794 Output cadcounted fester ng ( en ); 

: $38 0795 +i i FROM .List C-1) - T TO 

i 498 799 IF (..Uist £.42 AND .mask) NEO 0 

; 90 195 BEGIN 

3 1 4 mask = .mask AND NOT ..List G53}: 

; 50 1 4 output fatcpuated (list ts +4); 

; 03 ¢ 4 ta t C.i) AND ign$m_header) NEQ 0 ! special case HEADER 
; 505 4 output _cmdfao (cstring ("=!UL"), .dif$gl_header); 
: 04 605 ° IF, snask NEGO pfetea ete 

3 4 oy output_cmdcounted (cstring (",")); 

; 510 B05 tput ¢ (estring (')")); 

: 1" 10 euteu -cmdcounted (cstring 

4 18 +f If ,difSgl_tlags (di t$v_comdet) ! /COMMENT_DELIMITERS 

1 +h Sutput_cedcounted (cstring (*/COMMENT_DELIMITERS*)) 

: outpu counted (cstrin "dds 

; 3 36 IF ,0'T89l_conndesc fascSu_ length] neg FE 

: 319 be 4 BEGIN 

; B19 4 output cade ted (csgring (*=(")): 

3 : : 9 ‘ Inc FROM 0 to .dif$gl_commdesc Cdsc$w_length)-1 

; BEGIN 

: 3 ; § SELECTONE CHSRCHAR (.difSgl_commdesc Cdsc$a_pointer]+.i) OF 
; $ B25 fers : output_cadcounted (cstring (*COLON')); 

; $ Cie : Output _cadcounted (cstring (*COMMA')); 

; ; zC*!*} : output-cmdcounted (cstring (*EXCLAMATION')); 
: ; 8 ffeed) : output cmdcounted (cstring (*FORM FEED*)); 
; ; zC¢ : output _cadcounted (cstring beet »); 

3 531 : 3C'}*) : output=cadcounted (cstring (‘RIGHT’); 

; ¢ ZC*:*} : output-cmdcounted (cstring (*SEMI COLON')); 
; B32 %C'/"] : output_cadcounted (cstring ("SLASA’)); 


eet oa a Re ee Se a eT eS 


ROI Jeo 
eg 


5 


o 
w 


SSSTOS 


SOOOOSGOOCOOCOSOOOOOOOOOO 


MAMMA 


SOooooooooooo 


Shtt3330 


SOOOOOOOSOSOSOSOSOOOOSOSOSOSSOOOSO 
5> 020302 G2 G2 02 02 G2 OS INI NN NNN 


DO 


WN =O DOONAN EW 0 DONO FW —O0@ 


BB BBB MMMM MAMMA MIPPIPIIPPNINIPINIPIPIPIPPIPIPIPIPIPIPIPI SE BTS OO OO UIT 


bed “SeOcNRE GEAEHE WMC] Bt teee82 y4,0-742 Page It 


C* *] : output cmdcounted (cstring ('SPACE')) 
of Ney “Yestring (*TAB")); 
Hives : “output _cmdcounted (cestring (° ie 


outdesc fdsc Su. Length] = 1; 
outdesc (dsc$a_poin oy = .d if$gt. conndess Cdsc$a_pointer]+.i; 
output. cmdfao Tcstring ('!AS'"),“outdesc); 


TES; 
It NEQ .difSgl_commdesc (dsc$w_length]-1 


Output _cmdcounted (cstring (',')); 
output cadcounted (cstring (")")); 
END; 
IF -jj0) fSal_flags Cdif$Sv_width) ! /WIDTH or /LINE_WIDTH 
output _cmdfao (cstring ("/WIDTH=!UL"), .dif$gl_width); 
{f ,d1fSgt_tlogs CdifSv_match] ' /MATCH 
output _cmdfao (cstring ("/MATCH=!UL"), .difS$gl_match); 
[F g04tOat lage Cdif$v_maxdif) ! /MAXIMUM_DIFFERENCES 
output cmdfao (cstring ("/MAXIMUM_DIFFERENCES=!UL"), .dif$gl_maxdif); 


{f.d1fSol_tlogs (di f$v_merged) ! /MERGED 
output _cmdfao (cstring ("/MERGED=!UL'), .dif$gl_merged); 
IF NOT .dif$gl_flags (dif$v_ascii} ! /MODE 
OR .di ifSgle flags if$v_nex) 
OR -difSgi-Fl ags (dif$v_octal) 
THEN 
BEGIN 
BIND 
list = PLIT ¢ 
UPLIT (difSm_ascii, ZASCIC “ASCII') 
UPLIT (dif$m=hex, ZASCIC *HEXADECIMAL') 
gureit (di f$mZoctal, ZASCIC "OCTAL')) : VECTOR C, LONG): 
DECR i FROM .List [-1] - 1 100 


mask = .mask OR (..list [.i) “e Gi fat. flags); 
out put. cadcounted scatring ¢. ( tant 
DECR i FROM .list C- 


If (,.tist C.i)] AND .mask) NEQ 0 
THEN 


BEGIN 

mask = .mask AND NOT Ligt Of} 
output. emdcounted ( (list b.idea): 
Wee * k NEQ 0 


S= 


5 
1S-se <1 243: VAX-11 Bliss-32 V4.0-74 Pa 7 
12-398-} 382 $3:49:38 DLSKSVMSMASTERSCD IE SRC SOUTPUT.B32;1 a (3) 
Output cmdcounted (estring (°,")); 
output_cmdcounted (cstring (°)')); 
END; 


{f -géttSol_tlogs (di f$v_output) ! /OUTPUT 


BEGIN 
output cmdcounted ecoering (*/OUTPUT=")); 
Petous, pacene rey (di f$gl_outdesc); 


fd fSol_tlogs Cdif$v_parallet) ! /PARALLEL 
output cmdcounted (cstring (*/PARALLEL')); 
fr ag bt tOot_nestee Cfdb$v_separated] AND .dif$gl_revfdb [fdb$v_separated) 


Bee ee SSS SSS SSS SSS 


Soscrax 


output _cmdcounted (cstring (*/NONUMBER')); 
output_cmdcounted (cstring (*')); 


output cmdfile (dif$gl_masfdb); 
output~cmdcounted (cstring (''5); 


output cadt ile Ca} T$et_revide); 
output cmdentity (0); 


! put_desc (dif$gl_cmdesc); 
RETURN true; 
END; 


terminate Line 


output master file Line 
terminate Line 


output revision file Line 
finish the output 


09 oS output_cmdcounted (gsteing (*/SEPARATED’)) 
\9 24 FUSE IF .dTf$gl_masfdb (fdb$v_separated) 
\ 11 output cmdcounted Coste ing ("/SEPARATED=MASTER')) 
13 \§ Fist IF .dTf$gl_revfdb Cfdb$v_separated) 
1g 1 output_cmdcounted (cstring ('/SEPARATED=REVISION')); 
1 1 If .dif$gl_flags Cdif$v_sip] ! /SLP 
18 9 THEN ° ¥ 
H output _cmdcounted (cstring (*/SLP")); 
1 ? {0 61 fSol flops Cdif$v_window] ! /WINDOW 
§ § output_cmdfao (cstring (*/WINDOW=!UL"), .difSgl_wndwsiz); 
5 4 If NOT .difSgl_flags Cdif$v_linenum) ! /NUMBER 
$ ‘ THEN 
1 0 
; 
5 
5 


original command Line 


ET LS Mt 


SDOODODOVOOOVO ODO VOOOO DOO OODDDODODODOO0O 


°o 


-PSECT SPLITS,NOWRT .NOEXE ,2 


00 00 00 et 0000 P.AAA: .ASCII \/\<0><0><0> : 
C 00004 P.AAB: .BYTE 12 : 


SD <A 


6 

DIF OUTPUT 18.56 -1984 23:43: VAX=-11 Bliss-32 V4.0-74 Pa 8 DIF 
et 12-8 08- 198 93:43:38 DIEKSVMGMASTERSCOIF Sac SOUTPUT 832; 1 - (3 vos 

20 53 45 43 4E 45 52 465 46 46 49 46 ‘aaa pr ervenemes \ é : 

000 1 Q0014 P.AAD: .LON 3 ; 

53 465 4E 49 4C SF 468 4E 41 Cod 0 , pane eASCIIT = <11>\BLANK_LINES\ : 3 

00 . . 3 2 

00 00 00 53 54 4E 45 4D 40 GF & ASCII <8>\COMMENTS\<0><0><0> : $ 

0000004 P.AAF «LON 3 b 

00 00 54 43 41 5B 4 eASCII <5S>\EXACT\<0><0> : 3 

007? 4 00040 P.AAG «LON § : 

00 53 446 465 #65 46 SF 4D 52 GF & A ASCII <10>\F ORM_FEEDS\<0> ‘ ; 

000 00 0 YUL 0 P.AAH mi N é D4 

00 $2 45 4664 41 65 & eASCII <6>\HEADER\<0> : 3 

000000 P.AAI: .LONG 3 3 

00 59 54 54 45 $2 : ASCII <6>\PRETTY\<0> : 3 

000000 P.AAJ: .LONG : 3 

45 43 41 50 53 SF 47 4E 49 4C 49 41 52 56 OF oC eASCII = <15>\TRAILING_SPACES\ : 3 

00 gootd PAAAK: «LONG 1 : ; 

47 4E 49 43 41 50 3 obs rye <7>\SPACING\ 3 : 

00000000" 00000000" 00000000' 00000000' 00000000' 0009000. DOO8C P.AAC: .ADDRESS P.AAD, P.AAE, P.AAF, P.AAG, P.AAH, = : 3 

0000000" 00000000° AG P.AAI, P.AAJ, P.AAK : $ 

9 OAC P.AAL: .BYTE 9 : 3 

28 3D 45 #52 4F 4E 47 49 fF eASCII \/IGNORE=(\ 3 é 

4 86 P.AAM: .BYTE 4 3 é 

4c 55 21 1) eASCII \=!ULN\ g é 

1 Q0O0BB P.AAN BYTE 1 3 é 

C BC eASCII \,N $ F 

1 Q00BD P.AAO BYTE 1 é é 

9 BE eASCII NN 3 3 

13 OOOBF P.AAP BYTE 19 3 é 

49 40 49 4C 65 664 SF 56 GE 45 4D 4 ri $3 gf pence ASCII \/COMMENT_DELIMITERS\ 3 é 

2 00003 P.AAQ BYTE 2 : 3 

28 350 04 eASCII \SCN 3 e 

0 P.AAR: .BYTE 5 3 3 

4E GF 4C GF & eASCII \COLON\ 5 : 

0 OC P.AAS BYTE 5 3 : 

41 4D 4D GF 6&4 eASCII \COMMA\ F é 

08 P.AAT BYTE 11 3 é 

46E GF 49 56 41 4D 41 4C 43 5B 4 eASCII \EXCLAMATION\ 3 : 

09 OQOOEE P.AAU: .BYTE 9 3 3 

44 45 465 46 SF 4D 52 GF 46 ASCII \FORM_FEED\ a é 

04 P.AAV: .BYTE 4 ; 3 

54 46 45 & eASCII \LEFTN 3 é 

OD P.AAW: .BYTE 5 3 3 

54 48 47 49 § eASCII \RIGHT\ é 3 

A 105 P.AAX: .BYTE 10 3 3 

4—E 4F 4C 4F 43 SF 49 4D 45 1 eASCII \SEMI_COLON\ : 3 

10E P.AAY: .BYTE 5 3 3 

48 53 41 4C 10F eASCII \SLASH\ : 3 

114 P.AAZ: .BYTE 5 3 3 

45 43 41 50 115 ASCII \SPACE\ : 3 

111A P.ABA: .BYTE 3 : 3 

42 41 118 ASCII \TAB\ $ F 

3 11E P.ABB: .BYTE 5 3 3 

22 53 41 21 11F ASCII \""!AS*'\ ; 3 

| 
| 


eae 
ed 


52 45 46 46 49 44 


4c 55 


4C 41 4D 


au 


54 53 41 4D 3D 44 


49 56 45 52 3D 44 


4c 55 


55 
55 


SF 
4C 


21 


49 


4 
45 
45 


45 


21 
52 


3D 
45 
54 
py) 


54 


3D 
45 


| 

30 48 54 44 49 57 4 

3D 48 43 54 41 «4D f 

5 4D 49 58 41 4D ef 

1 3D 53 45 435 4E 45 

44 45 47 S52 45 4D 3 

00000001 

00 49 49 43 53 rst 3 
000000 

45 44 41 58 506 Ps 

00 4C 41 54 43 0600 H 

00000000" 00000000° 000 vas 

28 3D 45 44 4F 4D . 

C 

1 

54 55 50 54 55 4F : 

4C 4C 41 52 41 50 4 

41 52 41 50 45 53 : 

41 52 41 50 45 33 2F 

if 

41 52 41 50 45 53 2F 

4—E 4F 49 ? 

50 4C 53 2F 

57 4F 44 4E 49 57 f 

42 40 55 4E 4F 4E 2F 

00 


-| 
ape 


220 


ROPING nnn nn nn nn ni ik ih ik ik nk ak tk tk tk tk tk et tk et tt tn tt ss a bd a 


SSS IMS SAB SOS VOR DN OO OARS A OM POP Ooe Use un 


P.ABL: 


74 YVAX-11 Bliss-32 v4 
3b $3; 13; 3 DISKSVMSMASTER: (DI 
-BYT 1 
eASCII N,N 
-BYT 1 
eASCII NIN 
ari 10 
ASCII \/WIDTH=!UL\ 
-—BYTE 10 
eASCII \/MATCH=!UL\ 
-BYTE 26 
ASCII \/MAXIMUM_DIFFERENCES=!UL\ 
oo 11 
ASCII \/MERGED=!UL\ 
-BLKB 1 
«LONG 1 
eASCII <5>\ASCII\<O0><0> 
«LONG 2 
eASCII <11>\HEXADECIMAL\ 
«LONG 4 
eASCII <5S>\OCTAL\<0><0> 
eLONG 3 
“ADDRESS P. ABJ, P.ABK, P.ABL 
BYTE 7 
“ASCII \/MODE=(\ 
-BYTE 1 
eASCII \,N 
BYTE 1 
oASCit VAN 
-—BYTE 8 
ASCII eaters 
eASCII \/PARALLEL\ 
-BYTE 10 
“ASCII \{SEPARATED\ 
ASCII \/SEPARATED=MASTER\ 
BYTE 19 
ASCII \/SEPARATED=REVISION\ 
BYTE 4 
ASCII \/SLP\ 
BYTE 11 
eASCII \/WINDOW=!UL\ 
-BYT y 
ASCII] \/NONUMBER\ 
BYTE 
-BLKB 
BYTE 
BLKB 
P, AAC 
P.ABI 
-PSECT SCODES,NOWRT,2 


erty 
F..SRCJOUTPUT .B832;1 
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(5) 


] 


S= 


yoe=b00 - 18-sep-1984 43:19:38 — DASkSMGHASTERSCDIF saCSourPuT.es2:1° 2% °&o 


OFFC 00000 <ENTRY OUTPUT_LISTING_TRAILER, Save RZ2,R3,R4,R5,- ; 0719 

oY Ry, nb onio.Rt| : 

v EF movas oufPuU RDEATITY : 

v EF MOVAB OUTPU 1 CODER ri0 : 

6 MOVAB DIFSGL-FLAGS. Rd : 

v EF MOVAB TPU gADC TED, RB : 

, ty Re : 
00000090" EF D CLRL © CMD_ BUFPOS + 0747 
A9 9 BLBC bIFSGL FLAGS*1, 1$ + 0749. 
o} MOVW #1, LIREDESC : 0751. 
FF74 OC : MOVAB P.AAA, LINEDESC+4 : 0752) 
08 At PUS LINEDE SC : 0753) 
0 fe CALLS #1, PUT_DESC : 
028E RW 46$ > 0754 
990000 G D PUSHL DIFSGL_DIFSEC : 0760) 
0000 F OF SHAB DIFSEC : 

BA FB CALLS #2, OUTPUT_CMDFAO : 
D4 CLAL = (SP) : 0761. 
68 gi FB CALLS QuTPUT CMDENTITY : | 
99000 0G D PUSHL Siéser IFREC + 0766) 
0000° EF 9F PUSHAB DIFREC ; | 
6A 2 FB CALLS OUTPUT _CMDFAO : 
68 FP Chits #1, OUTPUT. CMDENTITY ated, 
00000000v_ EF 09 FB CALLS #0. PUT BL : 0773 
FF78 OF PUSHAB : 0775. 
7. 1 §B CALLS #1, OUTPUT_CMDCOUNTED ; | 
62 69 4 €1 BBC #4, DIFSGL-FLAGS, 7$ : 0777) 
; 04 CLRL MASK 3; 0790. 
50 FC COA 00 MOVL S14, + 0791 | 

NF} BRB : 
51 674 09 MOVL LISTE : 0793) 
é 000000006 D mC DIF $c ci R2 : 

2 ei Bieta maa : 
£8 : F4 0005 SOBGEQ 1.2 : | 
20 A? OF 00C PUSHAB + 0794 | 

68 01 FB 00C CALLS 4 MAS UTPUT _CMDCOUNTED : 
Fea? 000 MOVE T=4, I ; 0795 

3 000 BRB : 
50 6742 00 000 MOVL LIsTCid. RO : 0797. 
7 18 6008 Beat peel 
55 gA hte BICL2 {RO . MASK : 0800 
ess re )00BE CALS. e ie ca eee 
678 09 0008 MOVE t laf : 0802. 
oc 6 E yUY BBC Py | 
000000906 BD 90¢ PUSHL DIF SGL a > 0804 

A A? OF 00 PUSHAB P,AAM ~ : 
6A g FB 00¢ CALLS #2, OUTPUT_CMDF AO : | 
? 00 ist mAs : 0805. 
ue 4 | 
68 ro te 0 Cte. at OUTPUT _CROCOUNTED fenek 
CD 9} Fe SOBGEQ I, R's : 0797 


L NS ee a... 
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Dc So - ~N Lal w wo ~o ~ @o oe 
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SOOO OOOOOS be. 
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e DBO ue Owmu. Oe ee i ee ie eee oe O-2 


YOu re oad QM POUR OCU & CUD. FF CU. OCU. ww ONO ——— 
OOD COS UI TOSOS STAG TANOTARO S sAOTAAO AANA CUNO TNO NoUDA DUO oO 


Ss 


00 
33 


_— Snes 8 < So Co N vw - ~ ~N wo w 
La) os So w wn wm ~o ~o ae ~ fo) to) @o 
S s s o S o 
So So o 
So Ss 8s 
Ss Ss & 
3S 3S SAA AAA N ~N S % Es) ~ % & S$ SS 
@ a 
nw wo 


03 


nS 


OAT pyarut 


Roa 


a 


04 


La 


02 


0D 


$$ 


51 


53 ee iu 
om Oe 
8 000900006 f 36 
. - 
3 0098 x +4 
$: \ 8 
oh i 
009A 7 OF 
68 1 4 
‘ 000000006 BD 
sane 
7 0000000 : 4 
sae fp 
6A 2 Ff 
rn 000000006 : BD 
gue 
6A i F 
69 E 
000000006 ° Dd 
00cB f F 
s sf 
PoE 
69 g E 
04 
50 0100 4 ? 
3} 0104 7a 4 
Boe oe 
ED g F4 
0110 3 oF 


4 6 
15-Sep-1 
14-Sep-1 


228: 


34%: 


VAX-11 Bliss-32 V4.0-74 


Be §3:99:38 


DISKSVMSMASTER: COIF..SRCJOUTPUT.832;1 


ADDL ! R3, OUTDESC+4 
PUSHL SP 


#2, OUTPUT_CMDFAO 
DIFSGL_COMADESC. RO 


4,*° 


P.ABC 
#i, OUTPUT_CMDCOUNTED 
At 1, 24$ 


$ 

, OUTPUT_CMDCOUNTED 
#1. DIFSGL-FLAGS+1, 27% 
DIFSGL_WIDTH 
ag, OUTPUT _CMDF AO 
#2. DIFSGL-FLAGS+1, 28% 
DIFSGL_MATCH 
P. ABF 
Ae OUTPUT _CMDF AO 
#6, DIFSGL-FLACS+1, 29% 
DIFSGL_MAXBIF 
P.ABG 


ag. OUTPUT _CMOF AO 
#5. DIFSGL“FLAGS, 30S 
DIFSGL_MERGED 


1 
#1, DIFSGL_FLAGS, 31$ 
#2, DIFSGL-FLAGS, 368 


ABM 
TPUT _CHDCOUNTED 


ODE ete ew et Li 
AMM 


AUr 
x 


j 
OUTPUT _CMDCOUNTED 


ABN 
» OUTPUT _CMOCOUNTED 


ge Ra 2 U0--DVzwor we 


-_ -—- Ww 


ee 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


0839 
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@ 


ee 


oo 


oO oO 
3 32a 


0890. 
0883 


$2 


—_-— 


07 


50 000000006 00 


779 bytes, 


3; Routine Size: 


Routine Base: 


OITA 7 
68 § 
01 
O11¢ 
68 
000000006 
6 
0125 
1 | 
012F : 


01 
68 0171 4 
0178 7 
68 
000000006 
017¢ 
68 
; 000000006 


‘8 i 


ht “SeOc19E TEES FNCU BURCH N92 ourpur.esess"* 


fa Bosse fats 
i D6 F 368: ri 
of Fim Aer 
A 
f! 00974 378: BBC 
Rit few f 
? ;" 7F 38$: ext v 
9 0¢ Lac 
1 vl BBC 
F 00 PUSHAB 
1 Jy 9 BRB 
9 00299 398:  BLBC 
j vi PUSHAB 
11 00 BRB 
1 Q0ZA2 408: BBC 
Fe OOSAE 418: CALLS 
9 06 a] 42s; BB 
F vu WH PUS 
fe } CALLS 
El 00¢8 43$ BBC 
\) “4 C PUSHL 
F O0eC PUS 
Fe oogce CALLS 
3 vi CE 448: BBS 
F 002d PUSHAB 
FB 0020 CALLS 
9F OO2DA 45$:  PUSHAB 
FB O020E CALLS 
9F OOZE PUSHAB 
FB O0CE7 CALLS 
9F OOZE PUSHAB 
oF O0SF BUSKAB 
FB OOSF CALLS 
D4 06 CLAL 
FB O¢ CALLS 
BO 00307 468: © ROVL 
A RET 


SCODES + 0220 


TPuT COUNTED 
ms maemo 
aes TY meee 


- A ASENTITY 
FS$GL~ “FLAGS. 58$ 


TPUT _ CMDCOUNTE 
i" bIFSeL CaASDB+36, RO 
‘d 


RO, & 
DIFSGL_REVFDB+36, 39S 
P. ABR = 


bg 


os 408 
P. ABS 


41$ 
ge DIFSGL_REVFDB+36, 42% 


r 
ge PUT_CMDCOUNTED 
pif seL. FLAGS 1 43$ 


BS OUTPUT_CMDCOUNTED 
DIFSGL FLAGS+1, 44$ 
ifsc. WNDQSI2Z 


eee OUTPUT _CMDF AO 
DIFSGL-FLAGS*1, 45$ 


i OUTPUT. CMDCOUNTED 
QuTPUT pCROCOUNTED 
OUTPUT. CMDF ILE 
OUTPUT_CMDCOUNTED 
ak: REVFDS 

OUTPUT _CMDF ILE 


(SP) 
ae yet. CMDENTITY 


ih: 


Se Pe Se Se Be Oe Se Se Se Oe Be Se Be Se Fe Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Fe Se Se Se Se Fe Se Se Se Se Se Se 


an 
= 


23.533 3223 Sana 


cocccecee. 
NO UENO 


so 


SSESESEEREE 


691 


rr 


+ or. 
VF ut--O0@ 


© Oc 


* 
+ 


6 
1Soseo-t9e 28:48:55 vant! as 
ROUTINE output _cadfile (fdb) = 
BEGIN 


FUNCTIONAL DESCRIPTION: 


Output a file Line in the trailer of the Listing. 


INPUTS: 


fdb = address of file descriptor block for file 


OUTPUTS: 


A file Line of the trailer is output. 


ROUTINE VALUES: 


Always true 


fdb : REF BBLOCK; ' file descriptor block 


OCAL 
outdesc : BBLOCK Cdsc$c_s_bin]; 


output cadentity (.fdb Cfdb$i_fildesc)); 
Here re MA AS 


BEGIN 

output cmpcounted (cstring (*/CHANGE_BAR')); 

IF (. fab Cfdb$v_linenum) gr -difSgl flags fdif$v_tinenum)) 
OR .fdb (fdBSb_cbarchr) NEQ 2°!" 


guteut cadcounted festering (*s(")); 
4" fab$b_cbarchr? NEQ 2C°!* 


BEGIN 

outdesc feschu. length) = 1; 

outdesc (dsc$a~pointer) = fdb Cfdb$b cbarchr); 
output cmdfao Testring (**!AS""), outdesc); 


ND 

IF (. db Cfdb$v_linenum] KOR .dif$gl_flags (di f$v_linenum)) 

‘ Ano SSS fabso*ceerche) NEQ tte! ° Mes 
tput_cadcounted (cstri €*.*bbe 

an db tfabsv. | inenum) AND NOT -GifSgl_flags Cdif$v_linenum) 


output _cadcounted (cstri *NUMBER*)) 
i423 IF NOT “tap Ciabsv it nena AND .dif$gl_flags (dif$v_linenum] 


output cadcounted gece tne (*NONUMBER')); 
If (.¢d ie v pinenun KOR .difSgl flags Cdif$v_linenum)) 
nen -fdbd CftdBSb_cbarchr) NEQ 3C°!” 


2 
:C 


v 
) 


& 
I 


; 


0-74 Pp 4 
OsACSourput.e32: 1° «os 


ss | 


Re Be Oe Be Se Se Be Se Se Se FH Se Se Be Ge FF Se FF Se Se Se Se Se FH Se Oe F8 Oe Se Oe Se FH Se Se Se Se Se Se Se oe Se Se Se Se Se Se Se Oe oe SH Se Oe Se Se Se Oe oe 


po 
ed 


S241 42 SF 45 47 4E 


22 


52. 45 
52 45 42 4D 


: saan 
rat 


00000000v 4 


Riek Sa F 


6€ 
04 AE 


41 


53 


42 
55 


48 


41 


4D 
4E 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


P.ABZ: .BYT 1 
43 A “ASC I \/CHANGE_BAR\ 
5 P.ACA: .BY 
28 1 ASCII \=CN 
18 P.ACB: .BYT 
21 1 eASCII \""IAS'\ 
ie P.ACC: .BYTE 1 
1 eASCII N,N 
P.ACD: a th 6 
55 ASCII \NUMBER\ 
- 7 P.ACE: .BYT 8 


P.ACF: .BYTE 
1 eASCIT NON 


-PSECT SCODES,NOWRT 2 
OOFC 00000 OUTPUT_CMDF ILE: 
-WOR 


D Save R2,R3,R4,R5,R6,R7 
00 9€ MOVAB DIFSGL_FLAGS, R? 
EF 9E MOVAB OUTPUT“CMDCOUNTED, R6 
Ff 9 MOV P.ABZ, RS 
8 C SUBL2 #8, SP 
AC OD MOVL DB, R2 
Ae DD PUSHL  56(R2) 
01 F CALLS #1 QUTPUT __CMDENTITY 
A § BLBS 6iR ), 18 
00 BRW $ 
dD PUSHL RS 
1 FB CALLS “i, out T_CMDCOUNTED 
1 EF EXTZV #1. #1, 36TR2), R3 
F EXTZy #4, #1, DIFSGL_FLAGS+1, RO 
see: Be 
A § CMPB ; tr), #33 
1 BEQL 
AS OF PUSHAB P.ACA 
gi FB CALLS #1, OUTPUT_CMDCOUNTED 
4 p CLAL RG 
ae CMPB 38(R2), 033 
16 1 Bean 4 
34 D INCL = RG 
1 : mOVe sot guTbesc 
A2 9 MOVAB 38(R2), OUTDESC+4 
SE 0D PUSHL  5P 


“ 
HE$eoctOGe GEAEHE  YMCLAMStzH2 4 %cfSouneur.osess" Gh 


7 output_cmdcounted (cstring (°)')); 
foie 
RETURN true; 
98 1 END; 


Pee Oe ee OH Oe Oe OF Oe Oe Oe Oe we OH Oe Oe OH Oe Oe OH OH Oe OH Ol Oe Oe Oe Oe Oe SH Oe Oe OH Oe ee SH SH ee SH Oe 


se | 


co: 
Die 


05 


; Routine Size: 185 bytes, 


mom ---- ee 


Routine Base: 


27 


SCODES + 0528 


ii tac 0 43:99:38 


AX-11 Bliss-32 V4.0-74 
DISKSVR STER: :CDIF.SRCJoUTPUT.832; ° 


a GyrPyt_ cH A0 _FLAGS*1, RO 
i 


Ace 
TPUT_CMDCOUNTED 


#4, DIFSGL_FLAGS*1, 68 
P.ACD 


R3, 9S 

#4, DIFSGL_FLAGS+1, 98 

wi, OUTPUT  CMOCOUNTED 

#4, #1, DIFSGL_FLAGS+1, RO 
R3. Ro" 

RO, 

Ree 4 

P.ACF 

wi, OUTPUT _CMDCOUNTED 

i, R 


“i 


eS i 15-Sen-1984 43:13:38 — SiScdumtaadtenccbif sacSourpur.es2:1°°% «95 


COwOuvrlrur 


a ee, a, ee ee i i ee) 


Boyt int Output_cmdfao (control, datal) = 


toe 
i 


i FUNCTIONAL DESCRIPTION: 
Output part of trail using SFAO with one argument. 


INPUTS: 
control = FAO contre’ string (counted string) 
datal = FAO data item number 

OUTPUTS 


Part of the trailer is output. 
ROUTINE VALUES: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: Always true 


control : REF VECTOR C, BYTE); 


LOCAL 
ctrdesc : BBLOCK (dsc$c_s_bin), ! control string descriptor 
outdesc : BBLOCK ([dsc$c_s_bin], 
tmpbuf : VECTOR Cnam$c_maxrss+difSc_maxlisiz, BYTE); ! formatting buffer 


ctrdesc (dsc$u_length) = .control (0); 

ctrdesc (dsc$a_pointer) = control (1); 

outdesc (dsc$w_length] = ZALLOCATION (tmpbuf); 

outdesc Ldsc$a_pointer) = gaoby H 

SYSSFAO (ctrdesc, outdesc Cdsc$w_length], outdesc, .datal); 
output _cadentity (outdesc); 


RETURN true; 
END; 


a a a a a sk nd = td 8 8 od wd od 


0000 00000 OUTPUT cHDF AO: 


WOR Save nothin 
FEGC cE MOVAB -404(SP), S$ 
FB AD f MOVZ7BW @CONTROL. CTRDESC 
FC OAD 04 ¢ ADDLS #1, CONTROL, CTRDESC+4 
FO AD 0183 «8F B80 move #367, OUTDESc 
oy 08 AE OD “ae oto 
FO «=O AD OF PUSHAB OUTDESC 
(0 «6 AD OOF PUSHAB OUTD SC 
FB OAD OOF PUSHAB CTRDESC 
000000006 00 04 FB CALLS #4, SYSSFAO 


Ss= 


Dat ByyPur tte seoctgte 23:48:35 aEILANEGE FSS aes™ 3 
880% CALLS a1 eo TPUT.. CMDENTITY _ 
i re: : 1040 


3; Routine Size: 61 bytes, Routine Base: SCODES + OSES 


cornnony pp OD 


aa" 


RB 
; 76 1 

; $ 
; 1 

: 754 1 
: 38 } 

: 7 $ 1 § 
; 7 8 1054 
: 0 1 2 
: 761 1 5 
: 76 1 : 
; 76 105 
: 764 1 

; 765 1061 
: 7? 1 ; 
: 76 1 

> 768 a 
: 769 1065 
: 770 1 

$ 771 1 

3; 77 1 

: 1 

+ 77% 1070 
: 775 1071 
: i 197 
: 778 1074 
: 44 2 
: 781 107 
: 7? é 107 
; 198 
> 785 1 + 


6 
15-sep-1984 43:45:38 SaScbuntaadtenschte secSourpur.es2:1°°™ «bs 


ROUTINE output _cmdcounted (str) = 
BEGIN oe 


tee 
i 
FUNCTIONAL DESCRIPTION: 


tout @ command Line entity. Insert new 
Lines as necessary. 


INPUTS: 
str = Counted string to output 
OUTPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' The entity is inserted in the output buffer. Output buffers 
are written as required. 

i 

i 

i 

i 

i 

i 

i 

i 

ie 


IMPLICIT INPUTS/OUTPUTS: 

cmd_bufpos = current position in output buffer 
ROUTINE VALUES: 

Always true. 


str : REF VECTOR C, BYTE); ! counted string 


LOCAL 
outdesc : BBLOCK Cdsc$c_s_bin); ! string descriptor 


outdesc fdsc$e. Length), = ,str 93: 
outdesc (dsc$a_pointer) = str 
output_cadentity (outdesc); 


RETURN true; 
END; 


0000 00000 OUTPUT_CMDCOUNTED 
WOR sa ve nothing 


5E 08 2 SUBL sP 
6b 04 mov? i OUTDESC 
AE 06 aC { C ADDL §1R, OUTDESC+4 
t ny") f PUSHL 
00000000v ff FB 1 CALLS #1. OUTPUT _CMDENTITY 
1 p 18 MOVL he 
4 00018 RET 


; Routine Size: 28 bytes, Routine Base: S$CODE$ + 0621 


S= 


c—_- 
} 


| 


s 
1Eoseer 73:19:38 DiSkSumsnaS¥eRscDIF sacSourpur.esz:1°°% «ay | 


Vest T 


rose 


DIF OUTPUT 18-sep-1984 93:48:38 VAX-11 Bliss-32 sf pets 
| 14-Sep-1984 12:19: DISKSVMSMASTER:CDIF ..SRCJOUTPUT.832;1 


; r 7 ¢ ROUTINE output _cmdentity (descr) = 
, BEGIN 
7 : 5 toe 
138 ; FUNCTIONAL DESCRIPTION: 
796 ; i Output a command Line entity. Insert new 
: Lines as necessary. 
797 § INPUTS: 
138 94 descr = descriptor of entity to output 
9 5 f descr = output buffer 


If length = 6, output buffer with continuation mark 
Otherwise, buffer and output data 


oO 
wn 


The entity is inserted in the output buffer. Output buffers 


' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

OUTPUTS: 
i 

: are written as required. 

i IMPLICIT INPUTS/OUTPUTS: 

; cmd_bufpos = current position in output buffer 
i ROUTINE VALUES: 

i Always true. 


descr : REF BBLOCK; ! string descriptor 
LOCAL 
outdesc : BBLOCK Cdsc$c_s_bin); ! string descriptor 
LITERAL 
indent = MINU (4, dif$c_minlisiz-1); ! indentation of continuation Line 
If .descr EQ 0 
THEN 
BEGIN ! flush output buffer 


outdesc (dsc$w_length]) = “cod pufpos: 
outdesc [dsc$a_pointer] = .dif$gl_outbuf: 
put_desc (outdesc); 
c fpos = 0; 

ELSE IF .descr Cdsc$w_length) EQ. 0 

THEN 

or6 N 

di f$gl_vutbuf C.cnd_butpos) = iC'-'; 

cmd_bufpos = .cmd_bufposel; 

ous put cadent ity $ ' output Line 

CHSFILC (2C* *, indent, .dif$gl_outbuf); 

gad bu pos = indent; 


' output Line with continuation 


SONOUPUNUMOSH USAR eS Oo 
PEM 0 OO WOU FW 0 ONO UN Ew © WMePwn— 33 
a kt a a an a at et at tt a a a 2 9 SS SS 2 SY SI 1 SY YY SL 
A Fk A Nk Rk RP I I ee a ed ed ed 


ee ee Se ee LS I 


ni 
; Be Se Se Se Be Se Oe Se Se Se Se Se Se Se Be Se Se Se Se Fe Ge Se Se Ge Se Ge Ge Ge Ss Ge Se Se Se Se Se Se Se Se Se Se Se Ss Ss Se Se Se Se Se Se Se Se Ss Se Se Gee 
| 
wn—00 Ww DN VEU —O VON VEWwN Oo $44 w 
i 
} 
} 
a me ed ed ed dd 


Sr 


7 
vOs=000 1icgeoe 19g #3:13:23 DI SkSumGnaStenccDié sacSoutput.es2;1° 9% (3s 
3343 IF .descr Cdsc$w length) LEQU .dif$gl_width-.cmd_bufpos-1 


BEGIN ! fits on current Line 
CnsROvE (.descr Céacdu, length). » Sicko pointer], dif$gl_outbuf [.cmd_bufpos]); 


md_bufpos = .cmd_bufpos+.descr [dsc$w_length]; 


44 IF .descr Cdsc$w length) LEQU .dif$gl_width-indent-1 

BEGIN ! output Line and put on new Line 
outdesc (Cdsc$w_length] = 0; 

output_cmdentify (outdesc); ! gutput Line with continuation 
output _cmdentity (.descr); ! put entity orm new Line 


ELSE ! item too big for one Line 


IF .dif$Sgl_width-.cmd_bufpos-1 EQL 0 
THEN 


we ne ay eee eRe 
OONOVE WHO OONOUE 


BEGIN 
outdesc Cdsc$w_length] = 0; 
output_cmdentify (outdesc); 


WN $9 OOBNOUE WN "OOD VOU Ew "OO 


BEGIN 
outdesc béscdy Length] = MINU ( 
-dif$gl_width-.cmd_bufpos-1, 
-descr Cdsc$a_pointer]+.descr Cdsc$w_length]-.outdesc [dsc$a_pointer]); 


1 

g 
bs 
9 
70 
71 


output_cmdentity Coutdesc); 
outdesc bdocke pernter = ,outdesc oe pointer]+.outdesc Cdsc$w_length]; 
dsc$a_pointer]+.descr Cdsc$w_length) 


IF .outdesc Ldsc$a_pointer) EQLA .descr 


mot pel 

outdesc Edsc$w_length] = 0; 

output_cmdentify (outdesc); ' output Line with continuation 
cmd_bufpos = 0; ! no indentation 


RETURN true; 
END; 


a a at 2 bs — — — = bd a 2s 2 a — as ~ 4 
aia a a at a st ss tt a a a a a a a a = ns a = as nt 


PN 8 ey Be te NY ee Oe NY 


4 

4 

: ND 
outdesc (dsc$a_pointer] = .descr Cdsc$a_pointer]; 
WHILE true 

4 

7 

4 

& 

4 

4 

4 

4 

4 

6 

4 

| 


DONOUS WOO 


‘ Save R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 ; 
8 990000006 99 9E 0000 MOVAB DIFSGL_WIDTH, R11 ; 
A 000000006 3 MOVAB DiFSGL_OUTBUE R10 ; 
9 D AF 9€ 0 MOVAB OUTPU CRDENTITY, R9 : 
8 00000000" EF 9 14 MOV CMD_BUFPOS, R ; 
H C 1B SUBL2 #8, "SP ; 

D 3 MOVL CMO BUF POS, R2 ; 1125, 

04 At p Ov stR, R ; 22 | 

6E 52 8B ; MOVW 2, OUTDESC : 1125, 


—_—— = + 


(nn 


Page 33 
-Sep- :43: VAX-11 Bliss-32 V4.0-7 1.832:1 a 
13-seo-1944 T3538 pee tAleteke hts see Sourey nk 
v DIFS$GL_OUTBUF, OUTDESC+4 1126 
¢ 4 4 PUSH SP at oa A 
fe cial Ens _BUFPOS 132 
5 1 BRB a 
66 8 1$ Ist (Re) i 
TBUF, R ; 
A ob Seay Hless, gms co 
: 06 é INCL CHD BUF POS 1136 
LAL ; 
; 4 a Ait ’ QuTPUT cron 1136 
tp move a ad tie 
20202020 8F D ROVE a. 
, an “sm : Al 
53 c3 : lot Ree mt : 
$0 5 ; CMP ZV #0. a.” (R6), RO = 
11 «1A C Pag 
$e ¢8 f MOVES (RG) Bene) (Ro) CRO ete 
v2we (R ; 
$8 26 apoL2 RO, CMD_BUFPOS 1139 
11 D 9 
te a 43 a CRPrY oh he. t (R6), RO we 
5 ; | 
fa BE oes ne 
f Pe 0 CALLS a. OUTPUT_CMDENTITY 1150. 
8f rB CALLS a , OUTPUT_CMDENTITY 145 
: 1 $: CPL Ry. rT) eons 
tae PUSML 6 SPet 1138 
pe ‘ 1_CMDENTITY po 
3) b $ hout’ ATA ae ay ‘ ‘ma, o : 1160 
m as 4 0 4 SUBL 3 CHD _BUFPOS, DIFSGL hom 
5 5 AP ROV IL (R6), R2 
1 ADDL2 4(R65, R2 ; 
§% AE set g QUTDESC#4, R2, RO ; 
. af 5 CMPL =ORT, R 
° BLEGU Bs ad Be 
6 08 8$: ROVY ae OUTDESC 1164 
FB 000CE CALLS. 1, OUTPUT CMDENTITY pon 
ee nouty yfoest ro ; 
5 c ADDL outogs TBEScog F tess 
04 AE p CPL forse ew 
ee B4 CLRW  OUTDESC 


— vw 


i= 
44 
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18-sep-1964 13:48:38 — SaScbumGuattencchif sacSourpur.esz:1°°% «os 


Put 


or 
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? 
voezo0 Is Beer13ke $2:19:38 — DiSkSUMGHASTERSEDTF sacSourpur.e32:1" 


ROUTINE output_changebar (fdb) = 
BEGIN 


: tee 
' 
5 FUNCTIONAL DESCRIPTION: 


This routine is genes fo out put the most recent set of records, 
read from a parti cular input Mie. in CHANGEBAR format. 


' 

' 

i 

i INPUTS: 
fdb = 
OUTPUTS: 
' 

' 

t 

' 

' 

t 

' 


ooo 
wing 


The address of the FDB of the desired input file. 


The differences are written in changebar format to the output file. 
i ROUTINE VALUES: 
i Always true 


Bese SSS SsssEsSese 
SSSSSSessessseeses 


910 MAP 
312 fdb : REF BBLOCK; 
91 AL 
914 4 cbarflag ' Flag to output a change bar 
915 prevmatc i Flag is true if last record was a match 
pay | ‘9 rdb : REF *BBLOCK; i address of the RDB of the current record 
44 | 1 rdb = .fdb ye firstdif); ' Get first difference record 
3 \; prevmatch = ! Assume last record was a match 
? 1 po a Fr -rdb NEQ .fdb Cfdb$i_compnrec)) ' Output all unmatched records 
9 § i$ If sprovmetch AND .rdb (rdb$v_matchone) ' Quput change bar if difference or if 
Gee 18 THEN cbarflag = ! first match after a deletion 
925 1 ght. = (IF edb Crdb$v_match) THEN 2 ELSE 1); 
7 $ 0 fdb Cfdb$i currecd = .rdb; ' Specify RDB of output record 
4 1 t a Ah. qbertls ; ' Qutput the record 

§ F ROT .rdb db$v_ “g ! If record was not ignored 
THEN pre ted h = ree rdb$v_match); ! Update previous match flag 

4 rdb = "rab rdb$i_ tlink ' Get next record 
1 7.7 END; 
G § $ fF. pr revmatch AND .rdb (rdb$v_matchone] ' Output change bar if first match 
% T +4 cbarflag = 1 ' after a deletion 
935 war gpertlag = = (IF .rdb Crdb$v_match]) THEN 2 ELSE n; 
9 fdb Lfdb$l qurrecd = Specify RDB of output record 
: 1 put_record (.fdb, sebartleg): i Output the record 
% § RETURN true; 
940 END; 
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MOVL #2. CBARFLAG 

MOVL #1, CBARFLAG 
RDB, (R3) 

PUSHR #*M<R3,R4> 

#2. PUf RECORD 

#1. R 


So-o ODOM EwBoomO 


sss -ommm—ommn 
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; Routine Size: 103 bytes, Routine Base: SCODES + 0724 
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007C 00000 OUTPUT_CHANGEBAR: 
«WORD 
l 


sinstasvesicle tisdale tildlenpshenelesipimendanctasaeal endiadnamatammrenia teiabteneaaaietannaemens as Be 
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DoO000 
NNN NNN NNSA OOOO oy tt at ot a tt ee 
MF SAIS AS NSS eS AP koe OS ene Se a abn 


PDD PDD BB BB FAM IPIPIPIPIPIPININPINININPINIPIPININIPIPIPIPIAIPIPIPIPIPIPIPIAIAINOINIOIAIFLIAIA —> 
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H Output _merged = 


> 
2 


FUNCTIONAL DESCRIPTION: 


This routine is call 
differences in MERGED format. 


IMPLICIT INPUTS: 
OUTPUTS: 


ROUTINE VALUES: 
Always true 


LOCAL 


fdb : REF ansih 
rdb : REF BB 
stardesc : BBLOCK Cdsc$c_s_bin); 


If .difSgl_flags Cdif$v_init) 
iMEN ITSgt eT Logs tarts. init] = false; 


done = false; 

stardesc (dsc$a_ tater = stars s fii: 
stardesc aes ength = ,st 0 
difS$gl_mastdb (Tdb Sconptfec}'s -dif$gl_ma 
dif$gl-revfdb Cfdb$i-compirec -dif$glir 


DO BEGIN 

fdb = dif$gl_masfdb; 
INCR i FROM 1 TO 2 
DO BEGIN 


tades ‘: Koserdonc)s 
out” dl fdb); 
rdb= tab trace _compirec); 


WHILE ((NOT rity Bis (rdb$v_m tehone 3) AND 
(NOT rd 


v_eof)) 
DO BEGIN 
If wr -rdb (rdb$v_match) 
fdb Cfdb$l -currec) = .rdb; 
put_record (.fdb, 0); 


The FOB's of the master and revision files. 


Address of F 
Address of RDB 
Descriptor for 


ed to output the most recent set of detected 


The differences are written to the output file in merged format. 


Flag is set when all differences have been output 
B of current output source 


of current record 
Line of stars 


! If init tleg is set 
! Then reset flag 


' 
' 
stdb Cfdb$l “firstaitas 
evfdb CfdbSi“firstdif); 
' 


jate until fla 


! Init star doee edérese field 
! Init stor desc arched field 


' Get first unmatc ¢ record 
! ee each input file 


' Loop until all differences output 


Output master file differences first 


For both input files 
Output differences 


Output Line stars 
Output file % Line 


Output all unmatched records 


If not a match record 
Then output it 
Specify record to output 
Output record 


v4.0-76 P 
:COIF SRC SOUTPUT .B32; 1 tt 


7 
iErsennt9es 25:45:35 VanedT BuiseeKz V4.0-74g Page 8 


ss | 
5 


END; 
rdb = .rdb ErdbSi_flink); 
END; 


Get next record 


Output specified number of trailing 
matched records 


Check to see if no more differences 


INCR j FROM 1 TO .difSgi_merged 
bo Bein ee 


If .rdb EQL .fdb Cfdb$l_compnrec) 
THEN done lia 


= true; i Wo more, then set flag 
If .rdb (rdb$v_ignored) If ignore, then can't be a match 
by : os -T Look again for a matched record 


Match, so output record 
Specify cesers to output 


] 
fdb Cfdb$St_currec]) = .rdb; 
Output recor 


pus record (.fdb, 0); 
ND; 


[? = .rdb (rdb$t_flink); Get next record 


Check to see if no more differences 


If .rdb EQL .fdb Cfdb$l_compnrec] 
THEN done = true; No more, then set flag 


IF .difSgl_merged EQL 0 
iNEN SOBs edb Crdb$t_flink); 


fdb Cfdb$l_compirec) = .rdb; 
fdb = dif$gl_revfdb; Get revision file fdb 


stardesc (dsc$w_length) = .stars (0) / 2; Use fewer stars 
END; ! Of increment 


If no match records should be output 
Then skip one anyway 


Respecify first record of next potential 
difference section 


—t se bs tb wt 


NOME WO OONOU EW" O 


stardesc (dsc$w_length) = .stars (0); ! Init star desc length field 
put_desc (stardesc); ! Output stars 
! Of Until 


END 

UNTIL (.done); 
RETURN true; 
END; 


a at tk a at et a wt as a a a a a a ss a = = 2s — as — 9 2 


RPI HE BBE EEE EEE FENIAN AA DANAE BPH 


ee a ed ee et ed ee 


Of output_merged 


OFFC 00000 re Pe 


WORD Save R2.R3.R4.R5.R6.R7.R8.R9.R10.R11 7 1235. 
MOVAB PUT_RECORD. Rf1 : | 
MOVAB PUT"DESC, 10 : 
MOVAB DIFSGL_REVEDB+12, Ro : 
MOVAB DIFSGL“MASFDB+12, RB : 
MOV STARS, "R? : 
07 6 eee ale. SP L_FLAGS*1, 18 2 1265 | 
boooo000¢ BICB2 AY DIFSGC FLAGs+4 :1 
CLRL —rdDONE > 126 
08 MOVAB STARS*1, STARDESC+4 > 1269 | 


= 


ee ee a a a ce a ee ed ed od =o od ot 


a soenenesenanesnnesasel tairnatananesnteladconetianemenaniamnnipentiivenimamtaeneaaaietanntl 
? | 
DIF _OUTPUT 14. -1 243: VAX-11 BLiss-32 V4.0-7%4 P 9 DIF 
wbe=db0 Va-8e-19be 13:19:38 — PracSuMHASTERS DIE sacSourPuT.e32;1° 2 «133 voc 
A ? MOVZ2BW STARS, STARDESC F 70 :] 
D MOVL DIFSGL_MASFDB¢ 3. DIFSGL_MASFDB+16 3 127 : 1 
2 MOVL BIE GLUREVFDB+i2, DIFSGL_REVFDB+16 : 1272) ; 1 
3 F4 MOVAB DIF GLIAASF DB, F68 : 127 31 
06 F 00 PuS STARDE sc ; 1281 : 1 
6A Fe CALLS a PUT_DESC S saga) : 1 
o0000000v FF F 10 CALLS Hs T_IDLINE 3 | 31 
10 Ad D MOVL 16¢FDB)> RDB :1 Hi 31 
1 BBS #5, 8(RéB), : 31 31 
14 A BBS #2. (RDB). + 1386 | :1 
OA A BBS r] (RDB), 5$ 31 | 31 
5 D MOVL RDB, (FDB) :1 31 
D4 CLRL 0s = SP) : 1 1 : 1 
0d PUSH A : 3; 1 
63 F CALLS #2, PUT_RECORD : | 31 
p ROVE 68), Ros : ! 93 : 
54 000000006 D0 MOVL  DIFSGL_MERGED, R4 : 1 | 31 
p4 CLRL : 1 | 31 
1 BRB 1$ : 31 
16 «AB D1 CMPL RDB, 20(FDB) : 31 
BNEG = 8S : 31 
55 1D MOVL #1, DONE :1 31 
06 08 A2 BLBC 4 ©=._-« (RDB), 9S : 1 ¢ 31 
6E FF AE MOVAB J-1, J 3 1 a. 
A 1 BRB 10$ ; 31 
63 2 00 MOVL RDB, (FDB) : 1305, 31 
D4 CLRL = SP) 71 | :1 
; DOD PUSHL Foe : 31 
F CALLS #2, PUT_RECORD F | 71 
D Move. (ROB), ROB : 1309 3] 
pc 6F 4 F AOBLEQ R4, J. 7$ i 1296 31 
46 OA é : cmPL R , 20¢F DB) : 131 i 1 
1». MOVL #1, DONE : 1313 :1 
000000006 p TSTL DJF SGL_MERGED : 131 31 
BNEQ $ 3 = 
5 $ D MOVL (RDB), RDB > 1316 31 
10 A B MOVL RDB, 16(FDB) ; 1318) :1 
FAD OE MOV DIFSGL_REVEDB, FDB :1 : | 31 
9A MOVZBL STARS, R : 1321. 31 
C DIVL2 #2, RO : :1 
04 A 8 VW RO, STARDES : 31 
FF74 56 0 § ACBL #2, #1, I 3; 1278) 3 1 
06 AE 6 38 V2BW STARS, STARDESC : 1 3h 3 1 
sti nF CALLS SiMe st ge eee : | 
8 5 s BLBS DONE. 123 > 1328 | 71 
50 rot MOVL TRO : 1330. 3 
° 4 | e 
be RET : 1330 ; ' 


; Routine Size: 241 bytes, Routine Base: SCODES + 0788 


a BA 
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—=—C 


ma a a a tt a tt ak a as a a at nd a od 8 a ts ws = = 4 = 


a a a ea ed a nd dd od od = = od 


? 
15-Sen-1964 43:13:38 — DaScbumGnastenccbif sacSourpur.esz:1 2%" «18s 


ROUTINE output_parailel = 
BEGIN oP 


tee 

' 

FUNCTIONAL DESCRIPTION: 
This routine is cot ioe to output the most recent set of detected 
differences in PARALLEL format. Note that unlike all the other output 
routines, except SLP, this rout ine assumes it is being called on the 
tly as difference sections are being discovered. 

IMPLICIT INPUTS: 
The FDB's of the master and revision files. 

OUTPUTS: 
The differences are written to the output file in parallel format. 

ROUTINE VALUES: 
Always true 


LOCAL 
C inogese : BBLOCK Cdsc$c_s_bin], 


matc 
masrdb : REF BBLOCK, 
revrdb : REF BBLOCK; 


Descriptor for output Line 

Number of match records output to date 

Address of RDB of current record from master file 
Address of RDB of current record from revision file 


meer mee 


If Gi teat flags Cdif$v_init] ! If init flag is set 
THEN BEGIN ' Then output Listing header 
dif$gl_flags fdi¢Sv_init3 = false; ! And reset flag 
pur Parallel. dline (); 
ND; 
masrdb = .dif$gl_masfdb sabst .firsedi ty: ! Get first difference record from each file 
revrdb = .dif$gl_revfdb [fdb$l_firstdifi; 


' 
Initialize the output descriptor and fill it with dashes. 


' Linedesc (dsc$w_length) = .dif$gl_parwidth; 
Linedesc dsc$a_pojnter) = -4i #90 out uf; 
CHSFILL (ZASCII "=", .Linedesc Cdsc$w_length], .linedesc Cdsc$a_pointer]); 
‘ 
i If Line numbers are requested, then insert them amidst the dashes. 
: Either way, output the Line of dashes. 
IF .difSgl_flags Cdif$v_linenum) 
THEN BEGIN 


nodes Césctu length) = di f$9l_paruidth/ 4; 


nsert_linenum T.masrdb, Linedes : 
Linedesc EGoctu. lengths = 3 di #$gl parwidth/ 4; 


Sb ees res 


7 es, ial a 43:45:38 | PieddwGSteacchie sacSourpur ese: 19913) 
1097 insert_Linenum (.revrdb, tin desc, 
Linedese Cdsc$w length = .dif$gl_ ALL 


put_desc (linedesc); 
' 


i while the difference sections are of equal length, output the difference 
records with text from both files. 


OMILE (NOT aayre CrdbSy Fy AND NOT .revrdb (rdb$v — 
r 


SESFS 


-masrdb (rdb$v_eof] AND NOT .revrdb (rdb$v_eof]) 


pO IF cana rdb$v 
iHEN Besrde = cTmgerds CrdbSt_flink] | 


wr 


ELSE iF erevrdb (rdb$v_ignored 
arse coy coverage = Trevrdb (rdb$l_flink) 
| 


While the revision file difference section is longer than the master 
file difference section, output the difference records with text from 
only the revision file. 


i 

1 

ig 5 oy eeand parallel (.masrdb, sroureels 

14 masrdb = .masrdb rdbéee flink 

15 revrdb = .revrdb (rdb$i_ finkd; 

Hy 8 END; 

i 10 $3 

i$ 11 i while the master file difference section is longer than the revision | 
\§ ! file difference section, output the difference records with text from 

1 i : only the master file. 

§ 15 3 WHILE (NOT .masrdb Crdb$v_matchone) AND NOT .masrdb (rdb$v_eof)) 

4 1g DO BEGIN 

5 1 IF wer -masrdb (rdb$v_ignor o¢ 

$ + THEN put_ 5egoree para ie} {jaasra, 0); 
20 masrdb = .masrdb (Fdb$i_flin 
4 
5 


wn 


ch = 0; 
LE (.match NEQU Gi tsal Bho’ est3) L) AND (NOT .masrdb (rdb$v_eof)) 

AND (NOT siatle tens 
If .masrdo (rdb$v ware a 

THEN masrdb = mpords be ss y ink) 

ELSE IF rade t rdb$v_ 

THEN revrdb = =p gnorsd 

ELSE BEGIN 


ee SS ee ee ee ee eee eee eS SY 
ee __.__ __. eee LEE ee eee eee ee SS 


MNS PELL 
a aa a a a a a a 2 ed 2 a a = a 2 = = a 8 


FREER PEEP E REE EEE 


BREESE 
WEwW=—O 


5 WHILE” (wot -revrdb (rdb$v_matchone) AND NOT .revrdb (rdb$v_eof)) 

§ If NOT .revrdb (rdb$v_i pered 

THEN put second. parall ‘ -revrdb); 
y 1 revrdb = .révrdb CFdb$l_ Tees F 
? § END; 
' 

; 5 i Output matches from both files, until we are either done, or one of the 
$ : files runs out of records. 
6 mat 
; WHI 
0 


rdb$l_flink) 


15-se0-196 43:43:38 DESxSunGhASTERs CD Ie secSourpur.esz:1 om (135, 


3 11 144 ut_record_parallel ecer -revrdb); 

3; 1155 1009 . asrdb = “Sosrdb rapeet tink {3 

3; 11 1368 tevrd> = revedb “ye . “Ht nk 

3 33 144 match = .match ¢ 

We it ms 

3 1199 14 RETURN true; 

3; 116 14 END; ! Of output_parallel 


OFFC 00000 OUTPUT PARALLEL: 


.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1332) 

B 899000006 99 9E 9002 MOVAB DIFS$GL_FLAGS, R11 : | 

A 90000 006 9—E 000 MOVAB DIFSGL-PARWIDTH, R10 : | 

9 0000000V EF e ant? OVA P T -RECORD_ PARALLEL, R9 : 

0B AB : Ei OOOTA BBC so #5.~DIFSGL FLAGS#1, 18 > 1364. 
Qi AB A 0001F BICB2 #32, DIFSGC_FLAGS+4 : 1366) 
00000000v F FB 00023 CALLS #0, PUT PARALLEL s TDL INE : 1367) 
00000006 D A 18 MOVL DIFSGL_MASFDB+12, MASRD : 1370 

é 00000006 D 0 1 MOVL  DIFSGL“REVFDB+12. REVRDB : 1371 

6A D 8 MOVL DIFSGL PARWIDTH, R : 1376 

6E 8 B0 000 MOVW RB, LIREDESC ; 

04 AE 000000006 9 p 90 E MOVL Dif sé. OUTBUF, LINEDESC : 1377 

6E 2D 6E ne 0 ¢ 9046 MOVCS #0, (SP), #45, LINEDESC., “aL INEDESC +4 : 1378) 
1 01 4 €1 0004 C #4, DIFSGL_FLAGS*1, 2$ > 1384 | 
0 $8 i C7 tH DIVL3 #4, +4 5° 3 1386) 
6E 0 60 000 § MOVW RO, LINEDESC : 

01 bp 0 PUSHL #1 : 1387) 

06 AE OF B PUSHAB LINEDESC ; 
5? DD 00 PUSHL ASR F 

00000000v_ EF ; F CALL a3 I INSERT_LINENUM ; 
50 A C 06 MULL #3, F$G “PARWIDTH, RO 3 1388 | 
51 0 - DIVL3S as; F 
6E 1 B60 MOVW RI. LINEDESC : 
1 pp PUSHL : 1389 | 
06 AE OF SHAB L INEDESC ; 
3 DD PUSHL REVRD F 
00000000v_ EF F CALLS INSERT LINENUM F | 
6E A 8B MOVW Dif set “PARQIDTH, LINEDESC : 1390, 

i DD PUSHL : 139 

00000000v EF F CALLS i. PUT_DESC : | 

45 A7 2 a BBS #5. 8(MKSROB), 8$ : 1398 
6 Ag E BBS a. * B(REVRDB). 6$ ; 
1 A : BBS (MASRDB). 6$ : 1399. 
C A BBS an SCREVRDB) « 6$ F | 
Q 08 af cE BLBC DB), 4$- > 1400 

6 p MOVE CAASRDB) *MASRDB : 1401. 

OA 08 Ad EB BLBS (REVRDB), 5$ : 1402 

ry) PUSHL REVRDB > 1405 | 
my) PUSHL MASRDB : | 

69 2 FB CALLS #2, PUT_RECORD_PARALLEL : 


S2 


ee SSS SS 


? 
voe2000 ot 13:13:38 — SiScbumQuaStenccoté sacSourpur.e32;1° 2% c135 
B) 


7 7 0 B4 MOVL § (MASRDB), MASRDB : 1406 
% 3 o9 B7 5$: MOVL {REVRDB) , REVRDB : 1208 
BA BRB : 146 
15 08 A7 E ¢ 6$ BBS #5, S(MASRDB), Hy + 141 
10 08 a7 E C BBS 42. mag cmASROR) : | 
07 08 afc C6 BLBS © B(MA 3 + 1617. 
ze D4 OOOCA CLRL = + 1418 
9 85 PR Ronee CAS | #O PUT RECORD PARALLEL : | 
$3 9g D sf 7$: MOVL this SRDBY, MASRDB + 1419. 
1 D4 BRB + 1415) 
15 08 A6 E D6 8S BBS oF id EVRDB), 108 : 1427, 
10 ag E 0B BBS #2. BCR REVRDB) . : 
0 08 Ag E E BLBS Ht, : 1439 
3 DD O00E4 PUSHL : 1430. 
D4 Oe6 CLAL at ypee : 
$9 0 FB E CALILS PUT_RECORD_PARALLEL : 
6 66 D EB 9$: MOVL teEvRby” REVRDB + 1431. 
E 11 O00E BRB 8s : 1487 
D4 OOOFO 10$:  CLRL MATCH ; 14638) 
000000006 00 32 D4 OOF 11$: CRPL MATCH, DIFSGL_PARALLEL ; 1439) 
38 08 a7 6 £0 OOF BBS te. Sn noe) 14$ : 
08 Ab £0 001 BBS (REVRDB). 14$ + 1440) 
9 08 A? €9 00105 BLBC B(AASR 12$ + 1441 
? 67 DO 0199 MOVL MASRDB). *MASRDB + 1442) 
E4 11 0010C BRB F 
05 08 A6 €9 OO10E 12$:  BLBC &(REVRDB), 13$ + 1463 
56 66 00 oi MOVL (REVRDB) , REVRDB + 1444 
DB 11 0011 BRB 11 : 
26 DD 00117 13$: PUSHL REVRDB + 1446 
DD O9119 PUSHL MASRDB F 
69 0¢ FB 0118 CALLS #2, PUT_RECORD PARALLEL : 
57 67 00 OO11E MOVL (MASRDBY, MASROB $ 1447) 
56 $6 D0 001 1 MOVL § (REVRDB). REVRDB > 1448) 
D6 00124 INCL MATCH + 1449 
CA 11 O91 6 BRB 11$ > 1441 | 
50 01 00 00128 148:  MOVL #1, RO : 1458 
04 00128 RET : 1453 | 


; Routine Size: 300 bytes, Routine Base: SCODES + 087C 
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8 | 
1aagee 1 8he F3i58:38 — Miedumtaletenschte sacSourpur.ese:1 29" «rds voe! 


stardesc : BBLOCK Cdsc$c_s_binj; ! Descriptor for stars 


If init flag is set 
Then output Listing header 
And reset flag 


If di t$al flags (dif$v_init) 
THEN BEGIN 
dif$gl cfs CdifSv_init] = false; 
sc 


stardesc 
stardesc 
put_desc (stardesc); 
put, 16h one (.fdb); 


$w_length) = .stars fo; 


dsc$a_pointer) = stars (1); 


1 454 ROUT 
4 ¢ gout ane Cutput_separated (fdb) = 
| oti 
' 439 ; FUNCTIONAL DESCRIPTION: 
1 rhs i This routine is called e output the most recent set of detected 
: re differences from a particular input file in SEPARATED format. 
64 i INPUTS: 
! 28 fdb = The address of the FDB of the desired input file. 
! 68 { OUTPUTS: | 
; 19 The differences are written to the separated output iile. | 
i | ROUTINE VALUES: 
1 74 i Always true 
RS 
: i 
: He fdb : REF BBLOCK; 
1 3 LOCAL 
: § rdb : REF BBLOCK ! Address of the RDB of the current record 
: Ba 
| i 
1 
8 
Hy 
90 


rdb = .fdb Cfdb$l_firstdif); 
WHILE (.rdb NEQ .fdb Cfdb$l_compnrec)) 
DO BEGIN 
IF NOT .rdb (rdb$v_match] 
THEN BEG] 


N 
fdb Cfdb$t_currec) = .rdb; 
ut_record (.fdb, 0); 


ND 
rdb = .rdb Erdb$i_flink); 
END; 


Get first difference record 


Output all unmatched records 


If difference 

Then, output it 
Specify output record 
Cutput the record 


a at eg kt a ts ss = as as — — ss 4 9 = — as —) is — bn 9 as 9 ss 9 1 4 4 


a i i ei en a ee en ee ee a en en a ee ee eee ee eee 


Get the next record 
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SAR WNHOSS NEAR WV LO OBS RE OOS OER SONS AR INI OOo oe 
ee a a a a ed a dd kd od dd wd wd 2 dd dd dt 


PUPP B BB BB EE EEE EEE EEE EEE EEE EPP PPP PPP PPE 


LESRESLSSSLESEAS= 


PRIME B&B AGEING M AAA CPINIPIPININIPIDINIPIPIASPPIPIPIPIPIPIPIPIPUPIPURNIPYRS: UPIPIND 
nm . 


RETURN true; 
ND: 


| 
ba Ne es ean Pe Sa a San ek Jen fein ua es ae 


Sia ‘ 3 
voez000 1$-sep-1944 13:13:38 DESkSuMGHASTERSCDIF SacSourPUT 83251 2" (195, 


000C 00000 OUTPUT rm 


.WO - R2,R3 3 1454. 
c¢ g SUBL P 3 
29 900000006 BBC DIFSGL FLAGS*1 + 1485 
0 G A B1CB2 a2 DIFS$GC_F See + 1487. 
E 9900900 oe 14 MOV7BW STaks. STAR Ese + 1488. 
06 AE ' e 9€ 0001 MOVAB STARS+1, STARDESC*4 > 1489. 
F DD PUSHL SP 7 1490. 
00000000v_ EF 01 FB CALLS #1, PUT_DESC : 
04 AC DD PUSHL 7 1491) 
00000000v gf o1 F F CALLS #1, PUT_IDLINE : 
: 04 AC D 1$: MOVL D 7 1494. 
5 C Ad DO OOO3A MOVL 12(R2), RDB 3 | 
14 A2 3 D4 0055 28: CPL RDB. 26(R2) ; 1496, 
3 08 a3 4 £9 O04 BBS #4, 8(RDB), 3$ : 1498 
62 3D 49 MOVL RDB, (R2) > 1500) 
D4 0004 CLRL = = ( SP) : 1501) 
52 DD O04 PUSHL Re : 
00000000v gf 0 FB 05 CALLS #2, PUT_RECORD 3 
3 63 DO 00057 3s: MOVL (RDB), ROB + 1503 
Fe 11 0005A BRB 2$ + 1496 
50 1 00 0005¢ 4s: MOVL #1, RO + 1506 
04 0005F RET : 1507 


| 
; Routine Size: 96 bytes, Routine Base: SCODES + 09A8 | 
} 


8 
18-sep-1984 13:13:38 — SaScSUMGMASTERSCDIF saeSourpur.es2:1° 2% «10 


a" 


; 121 1 1 ROUTINE output_sip = 

: ; 1 ; BEGIN 

| 1p § i 

; i § 1513 | FUNCTIONAL DESCRIPTION: 

t 1225 1515 i This routine is called to output the most recent edit to the 

3 } $ 1 1 : SLP apt file. Unlike all the other output routine, except 

3 1 151 ' PARALLEL, this routine assumes that it is being called on the 

; ; : : Hs ly, aS each new difference section is detected. 

; 1230 9 { IMPLICIT INPUTS: 

: ¢ é ; The FDB's of the two input files. 

i] 4 4 i QUTPUTS: 

: } : $ The edits are written to the output file in SLP format. 

; 1238 1328 t ROUTINE VALUES: 

: 1240 1 i Always true 

3 1261 1531 ! 

BS HR gi 

: 1264 1 LOCAL 

3; 12465 1535 charptr, ! Pointer into output buffer 

3 126 1 linedesc : BBLOCK (Cdsc$c_s_bin], ! Descriptor of output Line 

: 1246 1 number ' Record number 

3: 12468 1538 rdb : REF BBLOCK; : Address of the RDB of the current record 

: 1895 1846 § BIND 

; 1251 18e4 firstrdb = .dif$gl_masfdb bi Sth .tieeeete : BBLOCK, ! RDB of first record in difference section 
; ; , Hh compnrdb = .dif$gl_masfdb [fdb$l-compnrec) : BBLOCK; ' RDB of first match after difference sectio. 
3 1254 1544 

3; 1255 1545 If Gi teat flags Cet tie init) ! If init flog is set 

3 ' 3) : “g THEN dif$gl_flags CdTf$v_init] = false; ! Then reset flag 

:1 154 charptr = .dif$gl_outbuf; ! Init ptr to output buffer 

3 1 35 1 rh CHSUCHAR.A tsersts cherpee): : insert *="" in output buffer 

3 ; $9 : ? Linedesc Cdsc$b_ lass) = dsc$k_class_s; ' Set desc class for RTL routine 

: 126 1 § If firstrdb EQL compnrdb ' are we yt hes | ony Atneg? 

3; 126 1 THEN number = .firstrdb (rdb$l_number] ! No, then get starting point of insertion 
> 1264 1554 ELSE BEGIN ' Yes, then we must be replacing Lines 

3: 1265 1 3 nedesc Fescéu. length) = difSc_linenum - 1; ! Put number of first Line to replace into 
3 1 66 1 $ Linedesc (dsc$a_pointer) =: .chafptr; ' the output buffer 

: 126 1 3 OTSSCVT_L_TI (firstrdb rdb$_number) Linedesc); 

31 68 1 4 charptr=".charptr + dif$c_linenum - 1; 

3 : $3 \ 2B number = .compnrdb (rdb$l_number J; ' Get number of Line after last Line to replace 
: 1271 1561 : 

3; 127 1 eg IF (number = .number - 1) NEQ 0 ' Calculate number of Last Line to replace 
: 127 138 ' or point of insertion 

3 1276 1564 THEN BEGIN ! If not at beginning of file 


‘etree re ee 


Bae eS Se a 
1a$epoH8BE 3:48:33 


z2 
Z 


uw 


wn 


Se Se Ge Ge Ge Ge Se Se SH Se Se Ge Ge Ge Oe Se Ge Ge Se Ge Ge Ge Ge 
—o a ee as a — ts — bs —* ab tn a — — 2» > 2 a td te 
ww 


ts — bn — as bs bs — a as a 2 a 


If ietetres ate compnrdb 

THEN CHSWCHAR_A (2C',', gherote): 
Linedesc pase length] _= dif$c_linenum = 1; 
breerer’ dsc =pointer} = .charptr; 
OTSSCVT_L_T1 (number, gedeec); 
charptr = .charptr + dif$c_linenum = 1; 


Linedesc (dsc$a_pointer] = .dif$gl_outbuf; 
Linedesc dscSu- ength) = .charptr-- .dif$gl_outbuf; 
put_desc (lLinedesc); 


rdb = .difSgl_revfdb (fdb$l_firstdif); 
waite (.rdb NEQ .difSgl_revfdb [Cfdb$l_compnrec)) 
dif ol routes (rast currec = .rdb; 


t.record $gl_revfdb, 0); 
rab = .rdb Crdbst. Flink 3 


RETURN true; 
END; 


OOFC 00000 OUTPUT_SLP: 


wO 

eggs 63 3 i 

$ Bisse eS 4 
§vonooone $5 $8 Be 

Z Sonne $3 Be 
SENSE Ria 
: a i 

07 46 1 MOVB 
3 H ee 

6E 04 s 06 MOVL 

1 BRB 

Ss AL 2 88 MOVW 
8 AE 04 te oF MOVL 

4 A f PUS 

7 : F CALL 

4 C ADDL 

6€ 046 =A $$ MO 

6€ 9 DECL 

Bra ca ea 
BEQL 

84 C MOV 


VAX-11 Ol isses2 v4. age 


Ones P 
DISKSVMSMASTER:CDIF .SRCJOUTPUT.832;1 


! Then if replacing, 
! Then insert a comma in the output buffer 
! Insert the number in the output buffer 


! Initialize the output buffer 
!' Set length to amount of buffer already used 
! Output the edit command 


! Get first record of insertion 
! Output each record of the insertion 
' Specify the on record 


! Output the recor 
! Get the next record 


ave R2,R3,R4,R5,R6,R7 


-MASFDB+12, Re 
MASFDB+20, R 


FSGL FLAGS#+1, 1$ 
IFSGC_FLAGS+4 
OUTBOF, CHARPTR 
CHARPTRS+ 
EDESC+3 


z 
PASE EES 


Sw www 
PAPAS 


INEDESC 
see LINEDESC+4 


: 
TSSCVT_L_TI 
HARPTR 
NUMBER 


SOW Ww 


fae efroaewFenvDeeozeaeoocaeo00w 


PFO ZX UR GD ts Bh es 


wD 
w 


#44, (CHARPTR)+ 


47 
(14) 


NRNOWOBOun— 


a 


ek aaa a a 8 aa tt tk ta a a a — — — Ls —s ss —) — 4 4 
rr ee ee oe oe ee ee ee oe ee ee es es ees a a es es ae ee ee ee ee eee ee 


peer 


ps Oa 


2 

DIF OUTPUT iSese 1 743: VAX-11 Bliss-32 V4.0-746 P 48 
Mbe=000 Ve=gee IFRS F5i58:58 eet ete see Scureur.ese:1 mt cite 
A 5 8 mOVw #5, LINEDESC 3 1567 
8% i 4 8 MOVL Caanbin LINEDESC+4 : 1368 
04 AE OF PUSHAB LINEDESC : 1569. 

AE OF PUSHAB ; 
? F CALLS ae, OTsSsCvT ttl : 

4 C ADDL2 #5, CHARPTR : 1579 

08 ae 5 ROVE Ret arbeetes *° Dig 
06 AE 54 A SUBUS. RO, CHARPTR. LINEDESC > 1576 
06 AE OF Pus L IWEDE SC : 1575 
00000000v EE o1 F CALLS #1, PUT DESC ; 
g oc aS OD MOVL DIFSGL REVEDBe12 R08 : 1577 
4% OA 3 p CRPL RDB. OTFSGL_REVFbB+ ; 1579 
65 3 D MOVL RDB, DIFSGL_REVFDB : 1581. 
D4 CLRL 30s = (SP) + 1582. 
; DD PUSHL : | 
00000000v ff F CALLS #2, PUT_RECORD ; | 
2 62 D MOVL (ROB), ROB : 1583 
50 ff DO i t teas. 
Be RET 7 : 1389 | 


; Routine Size: 187 bytes, Routine Base: SCODES + OA0B 


e 


et ig Hs 4 4 9 sn 9 4 as 1s 1 4 a 4 48 ss a 4 4 4 


GLOBAL ROUTINE put_record (fdb, cbarflag) 
BEGIN _ watts 


tee 
' 
FUNCTIONAL DESCRIPTION: 


Call the app 
record to the output file. 


INPUTS: 
fdb = 


BLUSE OOo 


to be output. 
cbarflag = 


OUTPUTS: 

The CURREC is output. 
ROUTINE VALUES: 

Always true 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


5 
; 


SESS Sess 


MAP 
fdb : REF BBLOCK; 


oa ny Ws 2 et 


REWUN 30 ONO UNF UW "0 OD WHEW OO 


CAL 
rdb : REF BBLOCK, 
stardesc : BBLOCK Cdsc$c_s_bin); 


record output will be a match or a difference. 


F .difSgl_flags Cdif$v_init) 
ifen'8 GIN ° “e 


difSgli_flags Cdif$v_init] = false; 
stardesc (dsc$w_length) = .stars fo}: 
stardesc (dsc$a_pointer] = stars (1); 
put. rie stardesc); 

ut. dline (.fdb); 


rdb = .fdb Cfdb$l_currec); 


If .rdb (rdb$v_eof) OR .rdb ([rdb$v_ignored) 
THEN RETURN true; 


If .dif$gl_flags (di tSy asci 
THEN put_record_asciT (.f 
ELSE put _record_hex_octal 


PAAPAAPAAASAAPAPCAASAAAAAAAA SH 


ee a a ed ed od od od od 


FFIIISTAAS 
Pw 


i) 
db, .cbarflag) 
(.fdb, .cbarflag); 


mom OO er ee 


Hfeseo-tgne 35:48:55 


i 
i 
i 
i 
i 
i 
i 
; 
; A flag that is 0 if not changebar format 

: 1 if changebar format and bar should be output 
' 

i 

i 

i 

i 

i 

i 

i 


If init flag is set, then this must be a change bar Listing. 
here, instead of in OUTPUT yee” because we can never tell if the first 


Vv 
D 


Axe 
! 


1 Bliss-32_v6. 
Bhateacc “i 


xo1 oeaet P 49 
SKSVMSMA DIF ..SRCJOUTPUT.B32;1 (15) 


ropriate radix output routine to format and put a 


The address of the FOB pointing to the CURREC that is 


2 if changebar format and bar should not be ouput 


Output header 


' If init flag is set 
! Then output Listing header 
! And reset flag 


! Get address of RDB of record to output 


If EOF or ignore 
Then don’t output, simply return 


' Call appropriate mode record output routin 


aan maaan 
Eas 


SRE HRSG egque eee 


eae tl 
7s 
06 AE 
00000000v_ EF 
00000000v fF 

1F 08 A 
18 

e 

00000000v_ EF 

7E 

00000000v 6 


3; Routine Size: 99 bytes, Routine Base: 


if: sep-1904 13:13:38 Dtdxsuntragtenccbié’s 


001 JENTRY 
000000006 I ROvAg 
f SUBL 
+4 BBC 
2: ag 
Bo000000" EF 9 ROY 
‘ dd PUSHL 
FB CALLS 
06 ac oC PUSHL 
oi F CALLS 
04 8 0 VL 
E BBS 
a) o BLBt 
04 A 5D MOVva 
02 fe CALLS 
J BRB 
C46 AC 7D mova 
8 fe CALLS 
MOVL 
4 RET 


SCODES + OAC3 


: reg P 
IF .SRCJOUTPUT .832;1 


Pur RECORD, Save R2 
m4. Sb FLAGS, Ro 


DIFSGL_F AGS*1 
aie, DIF SoC Recut 


ARBES 
STARSét, TST ARDESC#s 
a" PuT_DESC 
#1, PUT_IDLINE 
ar R68 
se ane roe. 3$ 
8<Ap8) FLAGS, 2$ 
FB. TSP) 
» PUT_RECORD_ASCII 
FDB, - 


(SP) 
aGe pur RECORD_HEX_OCTAL 


Pete Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Se Ge Se Se 


$9 (43) 


$= | 


a 
byt output tbrseoctgee @5:48:35 waned! Bligscsz ves0c74g, Page, St 


ROUTINE put_record_ascii (fdb, cbarflag) = 

BEGIN. ° 

i 

FUNCTIONAL DESCRIPTION: 

Format and put a record to the output file in ascii mode. 

4 
4 
4 
3 


INPUTS: 


fdb = The address of the FDB pointing to the CURREC that is 
to be output. 


i 
' 

i 

' 

i 

; 

: 

: cbarflag = A flag that is 0 if not changebar format 

: 1 if changebar format and bar should be output 
: 2 if changebar format and bar should not be ouput 
i OUTPUTS: 
The CURREC is output. 
i ROUTINE VALUES: 
i 
i 
: 


Always true 


SESSESEESESS 


5a 


VMFunN—oO 


fdb : REF BBLOCK; 


PAPOAOAOAOAS 
SAN 


Wun Jano 


tr, ' Pointer into the output buffer 
Linedesc : BBLOCK Cdsc$c_s_bin], ! Descriptor of otgut Line 
BBLOCK, ! Address of the RDB of the record to be output 
Sent, Leng, ! Space in record for text 
status; 


rdb = .fdb Cfdb$l_currec); ! Get address of RDB of record to output 
Linedesc fgscSu. length) = 0; 

Linedesc exces pointer) = .dif$gl_outbuf; 
charptr = .dif$gl_outbuf; ! Init the pointer into the output buffer 


If .cberflag NEQ 0 ! If change bar format output 


! Init the output descriptor 


Reus — 


oOoO 
wn 


‘ 
! Change bar format. If Line number is requested, then insert number 
! into the output buffer. Then insert change bar or blanks, as 
: appropriate. 
THEN BEGIN 
IF .fdb Cfdb$v_linenum) 
THEN BEGIN 


SeLESE 


SP AAA AAASAS OS 


pe 
FENLS 


If Line number should be included 
Then do so 

Insert Line number in the buffer 
Ince the char ptr 


nsert_linenum (.rdb, } inedosc . 0); 


ghareth = ,charptr ¢ dif$c_Linenum; 


Be Se Se Se Se Sk Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Ge Ge Ge Se Fe Se Ge Ge Se Ge Se Se Se Ge Ss Se Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Ge Se Se Ge Ge Ge oe 
ee ee ee Se ee ee ee Lee Ss 


PRE RRP EREEEREEEEE 


<2 at oe at 
Owfun—o 
ee a a a eed ad ed ed ed = od = 


Ri 


= 


Be Se Se Se Se Se Se Se Se Be Se Fe Se Se Se FH Se Ge Se Ge BH Se Se Oe Se Se SF Se FF SH Os Se Oe SF Se SHS Oe Se Ge SF Se Oi CH Oe Se Oe SH Oe ee 


i i a ht a a et ss et as 4 a ts a 8 as — = a as as = as 9 = ss ss 4 4 1 


52 
13-50 =} ‘f STEKSVMRAASTERSCDIE sac SourPut..e32:1° 9% cra 
ei 1aagee18RS F3:78:38 etal eee te she Sou 


41 1705 ' If this record requires change bar 

1 i nser 

ii PRES HbA A cg1ae, crops cogrened. enarotey | [ten"inaet crest 

iit rms: ‘e er ! Pad with a blank 

ie 171 CHSWCHAR_A (ZC* *, charptr); 

3 36 171 END " 

: 1es2 : hen insert the Line number. 

; 14 ie 8 | if Line numbers requested the 

; te in : If not rahi toe ooh, . : {f Line nw number should be incuded 

12 71 ar hen Geel Me num (.¢db inede c, 0); insert, Line gener = Se ewe 

ie i718 charpte =. = -charpir * di fscol nenun; i Pad with two blanks 

i 14 Hi CHSVCHAR” RHE +t harper: 

ie He ‘ If SLP output, then handle special operators in first column. ; 

ar ! If SLP out | 
; 14 17 i : and non-null record | 
: 1440 1? if di di tSol_t “(rab cate, aS AND cod leading operator 

: 17 (CHSFIND_CH Task ° | 
3 1448 1731 anctREAAR, (db Coabse text])) NEO 0) eet ilelll atnend ennienen 

‘i 8 wees reali tanegh atte ieee | BeeSerr Spree st Setter streate ome 
; tee 4 ; 1h egitigt siaeh eT yo he fascSw “length : Procee 

: tee at has been 
; i; oo ting exact, and if record 

i 1} fog difSgl_ignore Cign$v_exact] AND .rdb ([rdb$v_edited] : ‘ ae ae ca pine Sates 

. . a e 

3 14 é 1740 IMENGet _rfa_text (.fdb, Linedesc, .difSgl_width> else es edited st Ki em is 
; 14 Ho 4 SE ertaength, = tiny (, (oi tsat width - .linedesc Cdsc$w “Length : Calculate se | 
° a x t 

; 14 : 14 ¢ et’ 4 tengthe Fob t Crdb$t_text), .charp pend * Ay A wy — 1 Update string Length 

i 16 146 ¢ Nastens tase w_length] = .linedesc Cdsc$w_lengt . 

; 14 : 

r4 174 END; 

3 1s 1768 See ! If PRETTY mode, edit output Line 

: 1 1756 If .dif$gl_ignore Cign$v_pretty)] a 

Hi <4 Swilength], .difSgl_widt 

; 1264 7 § itnedees aye | Cdsc$a_pointer), .charptr, .linedesc Cdsc$w_leng 

> 1465 1? ! Output the Line 

: 1069 i} $ put_desc (Linedesc); 

3 1608 1789 § RETURN true: 

; 1290 1758 1 END; 


ee Ce 


oye Burr HEeseo-t9ee @5st8: 35 yard aise 


OFFC 00000 PuT_RECORD_ASCII: 
wORD 


-32 v4.0-7%6 » 
teR<cbiF sac SourPuT.e32:1 


‘ Save R2,R3,R4,RS,R6,R7,RB,RO,R10, R11 
MOV DIFSGL_OuTéUF. R11 
t MOV DIF SGL IGNORE. R10 
t MOVAB OD FSGL “WIDTH. RO 
I MOV INSERT-LINENUM, R8 
C SUBL2 #8, SP 
ROVE rR § none 
CLAW LINE DESC 
MOVL F$GL_OUTBUF, RO 
04 MOVL RO, LIREDESC+S 
0 MOVL R CHARPTR 
- a eal 
0D 24 04 E BBC #1, 36(R3), 18 
£ CLAL ss = §P) 
04 i PUSHAB L INEDESC 
$8 F CALL ase INSERT_LINENUM 
6 cB ADDL2 #6. CHARPTR 
01 08 AC : cMPL FLAG, #1 
66 26 AS 96 nove $8(R3), (CHARPTR) 
15 000000006 00 04 E1 BBC #4, DIFSGL_FLAGS+1, 5$ 
E b4 CLAL ss = ¢§P) 
04 oF PUSHAB LINEDESC 
$$ i AS fe Uist tem 
66 6 nove #85 (CHARPTR) 
6 20 8 MOVB #32, (CHARPTR)+ 
0 000000096 9 9 BLBC DIFSGL _FLAGS+1, 7$ 
12 A 83 TSTW  18(RDBY 
16 BEQL «=? 
50 00000000" EF 9A MOVZBL SLPOPRS, RO 
00000000" EF 0 14 i A Loc 20 (RDB) , RO, SLPOPRS+1 
bf CLRL RY 
3 9 peat MS 
6 C MOVB #60, (CHARPTR)+ 
4 ; 68 A SuBW3 DIF $GL_OUTBUF, CHARPTR, LINEDESC 
6 D MOVL D FSG. WIDTH, R 
50 6E 1 0 i cnezy #0, #16. LINEDESC, RO 
1 ¢ #6, DIFSGL_IGNORE, 8$ 
13 08 ¥ ; Et BBC 3. tthe $s 
bb PUSHL R 
04 ; oF PUSHAB L NEDESC 
00000000v_ EF 03 Fe CALLS ‘ P GET_RFA_TEXT 


age 


Pee Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Se Se Se Se Ge Se Ge Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


53 
(16) 


1648 


oS 


rane 


8 
1$-sen- 1984 13:13:38 PESxsumthagtenscbie sacSourpur.e32;1 om cas, 


1 f 35 C2 8S: BOV ZL L NEDESC, RI 3 1763) 
0 ¢ sual eR : | 
50 12 A2 ¢ mP2V ; #16, 18(RDB), RO + 1766 
¢ BGEQU : | 
29 “ 9$ a Nis hy £1763) 
66 14 a2 ; b D moves TEXT_L noTHe 20(RDB), (CHARPTR) 3 176 
A pc ADDW2 TEXT“LENGTH, LINEDESC + 17% 
6A ? DF 108 iste DIESGL_ IGNORE : 1750) 
68 po e} PUSHL DIFSGL_WIDTH : 1753) 
7E 06 =A C : MOVZWL LINED SC, -(SP) 3 
10 AE bb S0dEB PUSHL  LINEDESC #6 ; | 
00000000 Ef FB E CALL bin TRANSLATE_TABS ; 
' ; this: fem 2 ee : 1755 
00000000v EF f Fe OFA ti“‘<‘ééiCALLS:~=COMM;z PUT DESC : 
2:1 a a 


| 
; Routine Size: 261 bytes, Routine Base: SCODES + 0826 | 


ck ak ed = as 4 = = = 


8 
13-Sep-1984 93:43:38 DLSKSMGRASTERSCDIE SacSourPuT.32:1 2 (19>, 


= 


Always true 


59 1 ROUTINE put_record_he tal (fdb, flag) 

of 760 ef put_ hex_octa db, cbarflag) = 
$f? 1+¢ 
ci FUNCTIONAL DESCRIPTION: 
479 Format and put a record to the output file in either hex or octal. 
4 1 i INPUTS: 
4 5 i fdb = The address of the FDB pointing to the CURREC that is 
¢ ¢ : to be output. 
4 i cbarflag = A flag that is 0 if not changebar format 
4 : 1 if changebar format and bar should be output 
re 2 if changebar format and bar should not be ouput 
490 i ouTPuTS 
49¢ ; The CURREC is output. 
4 ; ROUTINE VALUES: 

; 

i 


S2LESE 


fdb : REF BBLOCK; 


LITERAL 
byte bits = 8, ! number of bits in a byte ‘ 
hex_Bits = 4, ' number of bits in a hexadecimal digit 
oct_bits = 3; ! number of bits in an octal digit 


LOCA 


SELESFANLLS 


L 

additional, 
bufferpointer, 
bytenumber, 
bytesperline, 
entsinrec, 


rgopetnter. 

linedesc : BBLOCK Edecse s_bin], 
outputdesc : BBLOCK Cdsc$c"s_bin), 
pad ytes. 

temptaobuf : BBLOCK Cgitee non tee iz], 
tempfaodesc : BBLOCK (dsc$c_s_bin], 
rdb : REF BBLOCK; 


rdb = .fdb Cfdb$t_currec); ! Get address of RDB of output record 
‘ 
: Get exact or edited text, as appropriate. 


if di tsa ignore Cign$v_exact) AND .rdb (rdb$v_edited) 
THEN BEC! 


PEPSI ES 


an a ig a a a a a a a tk a a a ek ed ad ed “a = od = tl 


PPP PUPP SPUDPUDUSUSVA SIS 
DWNO VE Wl 0 OO VOUS wt 


REPIPIAPIPEPOPURINY — a os os 


Be Oe Se Se Ss oe Oe Se Se Se Se Se Ge Ge Ge Se Ge Se Ge Ge Se Se Se Se FH Ss Ge Ge Ge Ge Ge Gs Ss Gs Se Se Se Se Ss Se Se Se SF Se Se SH Se Ss Ge Se Se Se Se Oe Oe Se ee 


| 


ae St EE Ee ee i Ee A a EE ee a ( 


S= 


—- —) a 


8 
Da By NESEUcHREE GEESE YMSCLTABASSHEH2 ht °sP6Soureur.os2s1°9% a 
Linedesc [dsc$w_length) = 0; 
Linedesc (dsc e went “ = di fSgl_ inbuf; 


ay rfa_text Tab edes 
“MAXU (lant $l. nesres Crebsy _usz], .dif$gl_revrab Crab$w_usz))); 


—— 
<9 
<— 


Mun 


ELSE BEGIN 
Linedesc fdsc$u. length] = .rdb eerste Length); 


enone dsc$a_pointer) = rdb (rdb$t_tex 


; Output the record header. 


PF blank (); 

put_hex roctal header (.rdb (rdb$l_number], .linedesc Cdsc$w_length], .cbarflag):; 
put_blank ();~ 

' 

initialize output format parameters. 


(09 GD CD CD CD CD CD CD CD GD CO CD CD ODO CD 


bytenumber = 0; 

bytespert ine = ,dif$gl “Fase Re tens * dif$c_entrysize; 

entsinrec = (.Linedesc CdscSw_tength] + dif$c _entrysize - 1) / difSc_entrysize; 
faopointer = dif$gl_ faofulldesc; 


PATE BEE EEE EEE 


COMO VE WO OOVNOUI EW —O 0 


' 
: j Satetettos output descriptor. 


outputdesc Cdsc$a_pointer] = .dif$gl_outbuf; 
outputdesc dsc$w_length] = .dif$gl_dumpwidth; 


PUPUDVPVLVSUSUSVSVUSUSUSUSISISIN 


Ab bh th Ab dh bh 


zs 


Output all the data in the record. 


OHILE -entsinrec GTR 0 
DO BEGIN 


' 
: If less than a full Line of data left, then prepare to output a partial line. 


If qienedens Césctu, Length] LSSU .bytesperline 
CHSCOPY sane Cdsc$w otengeh)y -linedesc Cdsc$a_pointer], 


IPI PPI SII Setetetetetetetes 


PAA 


FESS 


o 
w 


Swe 
NO AEN AO OD NA NEW | DOONAN E WN SO OE NOU EW OOOO 


<3 


CSOnOufun—-S 
0 0 Cd Cp Co CD CD 


PAPAIN 


-~ 


Copy partial Line, zero fi 


oc 


Be Se ee Se Se Se Se Se Se Se Se Se Ge Se FH Se SH Se we BH Se Se Se Se Se Se Se Se Se Se Se Se Se Sear Se Se Seas Se Ge Se Se Se Se eens 
mm ek dd od = od ed 


sper uf); 

temptacdes¢ AE ing pes 4 j= difS cna a03iz: ! Set up temporary work area 
faodesc [dsc$a_pointer) = tenp? aobuf; 

eye FAO (dif$gl _{opartdesc, tempfaodesc, tempfaodesc, .entsinrec); ! Use FAO to build a fao con 


faopointer = tenpfao 
bufferpointer = Pith “inbut: 


ELSE bufferpointer = .linedesc (dsc$a_pointer); 


Use this fao string up ahe 
Use this data . 


If full Line, use this dat 


SESREES 


Sa 


‘ 
: Format the output Line. 


a a mc a et a ce ee ee ce ee ce ce ce ce el el cc el el ce cl ce eld el 
a a ee ee a 8 ed ed ad ed dd od td 


Peek 2 se Eh PE eR ewe Bema hs -- 


POPPA AAAPAMNAAMN 


FaN—S 


difSformat_hex_octal (.bufferpointer, .difSgl_entsperline, difSc_entrysize, 
-bytenumber, .entsinrec, 0, .faopointer, outputdesc): 


~ 


~ 
u=—0 


@ 
w 


SO >>> Oss 


bys -guTPUT WPoseontome 28:45:55 vane 


Bliss-32 V 


73 

reg 

; If partial Line, then remove leading zeros and replace with blanks. 
; f IF glinedess CdscSw_lengoth] LSSU .bytesperline 
38 8} gectytes = .difSgl_dumpwidth = .outputdesc Cdsc$w_length]; 
95 ¢ ! a number of blanks to proceed last few bytes 

' The v 

ie : plus Length of formatted longword less length of formatted bytes 
399 if (additional = .linedesc Cdsc$w_length] MOD dif$c_entrysize) GIR 0 
601 8 If .difS$gl_flags Cdif$v_hex] 
603 89 i. 
60 90 additional = 1 
604 91 + (dif$c | lh be Oy beethes _bits-1))/hex_bits 
605 S36 - (,addi€ional*byte_ tits x_bitS-1))/hex_bits 
ope 89 
60 94 additional = 1 
608 95 + ponies tTonalsbyte bits bits+(oct_bits-1))/oct_bits 
609 38 - (,addi€ionalebyte_bits+(oct_bitS-1))/oct_bits; 


rae = .padbytes + .additiona 
HSMOVE (.outputdesc [dsc$w "tonored - additional 
-outputdesc dsc$a_puinter + .additi ional, 
utey utdesc dschae pointer -padbytes); 
CHSFILL (EA CI] ‘ padby ytes yt dsc$a pointer)); 
 ammatain dsc$w _length di f$gl_ dumpwidth; 


ts a ss 


WN —O0G WOVE WN “OOO NOU Fwh-Oo 


: Output the fully formatted Line. 
. put_desc (outputdesc); 


33333383333 


eo 
co 
Sida chi lh hh ah ach cach ah vache cach eta aaah attach teh ete et ee ae ae ee ee ee et et ee et et et et et ete et td oh) 


: Update parameters that mark our place in the data. 


entsinrec = .entsinrec - .dif$gl Pane 5 lh dapat 
bytenumber = .bytenumb i + iby esper 

Linedesc fascfu_ length) = .Linedesc dscby Leng th] = .bytesperline; 
pnosese dsc$a_ “pointer). = ,linedesc Cdsc$a_po Tater) 3 -bytesperline; 


Bee Se Se Ge Ge Se Se Fe Ge Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Se Se Ge Se Se Se Se Se ee Se Se See 
a at at at nt a ta a tt wn at ss wn a at wt a 9 a a as 2 ss — 4 


POPCAOPCAHASAASAHASSAAIFOSOAAAAOOOAR 
a a a a ad dd 


OODODOOOOOOVONO 
ROR es 


—O OOO fw 


RETURN true; 
END; 


OFFC 00000 PUT ~RECORD HEX. OCTAL: 


sy e (Re. Re R4,RS,RE,R7,RB,RO,R1IO,R11 
SE B8 AE 9E 00002 ROVAB =? 2(SP 


sp 


-11 
KSVMSMASTER: ay 18 sreSourpur. 832; 4 


19 495 


; 1759 


; Re 


9 
yoe2000 1$-sep-1944 43:13:33 DISkSUMGHASTERSCDIF secSourPUT.e32;1° 2%" c195 


04 ¢ D MOVL afoB, RDB ; 1809. 
000000006 eS 6 9 oA BBC #6, DIFSGL_IGNORE, 2$ + 1814 

$ 88 A : Fe j BBC Ay Bir Sot $3 : : Bre 

40 AE 64 0001 CLRW — LINEDESC ; 1816 

44 AE G pO DOOTA HOVE DIFSGL_INBUF, LINEDESC+4 + 181 
7E 6 : 3 MOVZWL DIF GL“MASRAB+32, =(SP) + 1819 
6E G i CMP DIF SGL_REVRAB* ’ (SP) : 

‘ PY 
6E 000000006 00 3c MOVZWL DIFSGL_REVRAB+32, (SP) ; 

44 OE CO 1$ PUSHAB LINEDESC + 1818 

04 ac DD C PUSHL FDB : 
00000000v_ EF 08 Fe Hi CALLS ‘ , GET_RFA_TEXT ie a 

40 AE 12 A 80 00048 2%: MOVW 18(RDB), LINEDESC : 1838 

44 SOA 14 A2 99E 0004 MOVAB 20(R2), LINEDESC44 > 1823) 

00000000v EF 00 FB 00052 3S: CALLS @# f BLANK > 1829 | 

08 AC po 0005 PUSHL  CBARFLA > 1830. 

7E 44 AE 3C 0005 MOVZWL LINEDESC, =(SP) : 

04 Ae dD 0 PUSHL 4 (RD : 
00000000V EF FB 0006 CALLS #3, PUT_HEX OCTAL_HEADER : 
00000000v_ EF 0 FB OOGA CALLS #0, PUT~BLAN : 1831. 

6 D4 0071 LRL  ®BYTENUMBER + 1836) 
59 000000006 00 02 78 00073 ASHL #2, DIFSGL ENTSPERLINE, BYTESPERLINE + 1837) 
50 40 AE 3C 00078 MOVZWL LINEDESC, R : 1838 
50 03 CO 0007F ADDL2 #3, R : 
SA 50 4 ¢7 00082 DIVL3 #4, RO, ENTSINREC ; 
58 000000006 00 3 0086 MOV DIFSGL_FAOFULLDESC, FAOPOINTER > 183 
3 AE 000009006 00 00 0008D MOVL  DIFS$GL“OUTBUF, OUTPUTDESC +4 + 184 
8 AE 000000006 00 80 0C95 MOVW  DIFSGL-DUMPWIDTH, OUTPUTDESC > 184 
AD 09D 4$: TSTL GNTSINREC 3 185 
03 14 009 BGTR $ : 
oog¢ 31 OOOA1 BRW 11$ : 
D4 OO0A4 5S: CLRL Rs : 1856 
59 40 AE 10 0 ED OOAE CMPZ7V #0, #16, LINEDESC, BYTESPERLINE F | 
D 1E OOOAC BGEQU 6$ ; 
8 D6 OODAE INCL RB ; | 
50 000000006 00 00 008 MOVL  DIFSGL_INBUF, RO : 1859 
59 00 44 BE 4 ob ¢ 9087 mOVveS LINEDESC, @LINEDESC+4, #0, BYTESPERLINE, - : 
08 AE 3 80 O0BF MOV 588 TEMPF AODESC + 1860 
OC AE 10 AE 9E 000C v TEMPFAOBUF, TEMPFAODESC+4 > 1861 
5A DD 000¢ PUSHL ENTSINREC : 1862 
a5 AE Hr S88th USAR nmr ARRESE ae 
000000006 05 3 b50 PUSHAB DIFSGL_FAOPARTDESC ; 
000000006 09 4 FB 00006 CALLS #4, SYSSFAO : | 
B 08 AE 9 DD MOV TEMPFAODESC, FAOPOINTER : 1863. 

04 AE 000000006 0 p 3 ROVL DIFSGL_INBUF , BUF FERPOINTER i] $4 

04 AE 44 AE 00 O00E $$ MOVL = LINEDESC+4, BUFFERPOINTER : 1866 | 

38 «AE «OOF 000F0 7$ PUSHAB OUTPUTDESC : 1871) 

36 DD O00F PUSHL FAOPOINTER : 1 2 
E D4 O00F CLRL. = = (SP) : 187 
SA DD O00F PUSHL ENTSINREC > 1872 
10 AE DD 000F9 PUSHL BYTENUMBER ; | 
4 DD O00FC PUSHL #4 : 1871 
000000006 00 DD O00FE PUSHL DIFSGL_ENTSPERLINE : 


<9 


ee ee ee ts a 4 a — 9 — 9 4 an — 4 4s 4 a ss 9 — 4 0 st ss ts a a is 2 ss ts tn in 4 >» _» 9 > 4 ss — 
aa 


Le PSP PP FP PRP PLL LLL LL LL LE LE LLB LE LER AAB LE LE LBB LE LE LE LEMMA MMM MMMM 


BeBe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se FH Ss oe Se Se Ge BF Se Oe Se SHS Ss Se Ge Se Se Se Se Se Se Se Se Se Se Se Se ee Fe Se Se Se Se Se teas 


Rae 9 
DIF _OUTPUT 1.se “1 243: VAX-11 Bliss-32 Vv Pa 
4 VerSeeT IFRS F5F8:58 eet hte sheSourpur.ese:1 cide 
20 AE 0D 001 PUSH FFERPOINTER ; 
000000006 i 00107 CALLS i. DIESFORMAT_HEXOCTAL ies 
000000996 : 001 HOVE sia DUNPUIDTH, RB : 1850 
Ag § 0011 MOV ye OU pest ADBYTES 3 
57 a g 6011 SUB ke’ ADBYTES : 
; oF 3 001 6 ROvZuL Sree ett Bp ; 1886 
56 9 001 DIV (SP)+, ONODETIONAL ADDITIONAL : 
14 ist ADBITIONAL : 
0 001 ASHL =s «#3, ADD {TIONAL + 189 
C 000000006 1 £1 001 Bac at. PSGLIFLAGS. 8S iis 
3 0 001 ADDL2 #3, + 1892. 
C6 1014 DIVL2 #%. R : | 
56 09 0 ( 0144 UBLS RO. #9, ADDITIONAL : 
A 17 00148 BRB 9 > 1890 
a ee Lo 
56 ¢ ES $0180 SUBL * #12, ADDITIONAL : | 
6 ¢ 154 9$ ADDL2 ADDITIONAL, PADBYTES : 1897. 
8 =. = ; 136 SOBES: ADDITIONAL, RO ) 
3C BES? 3C BEG 8 S 15€ MOVES RO, @OUTPUTDESC+4CADDITIONALJ, : 1900 
TPUTD SC+4CPADBYTES) : 
57 20 33 - 00 2¢ 166 mOvCS #0, (SP), #32, PADBYTES, @OUTPUTDESC+4 + 1901 
38 OA i 0 160 MOVW RB, OUTPUTDESC : 1902 
coooonoy gr A Fe BBR OH ELEM Batre a 
Fh 000000006 C2 001 SUBL2 DIF SGL_ENTSP ERL INE. ENTSINREC : 1913 
C 1 ADDL BYTESPERLINE, BYTENUMBER : 19146. 
40 AE 9 A2 001 SUBWo BYTESPERLINE. LINEDESC : 1915 
4a OA 9 ( 0189 ADDL2 BYTESPERLINE. LINEDESC+4 > 1916 | 
FFOD 31 01 BRW 4$ : 1850. 
50 01 00 199 118 MOVL #1, RO : 1920 
4 0019 RET ; 1921 | 


3; Routine Size: 404 bytes, Routine Base: SCODES + 0C2B 


J 
nm 
aa 


_ 


LOLOL LOLOL LL 


Rea RES 5 ee eR Ss OP ae ea Dia. : 4 


2 ; 743: - Liss-32 V4.0-74 _ Page 
voezo00 18-sep-1964 $3:43:38 DISK SVMSMASTER COLE SRC SOUTPUT .832:1 89 


; 1 1 ; 1 ROUTINE put_record_parallel (masrdb, revrdb) = 

: ig 1 BEGIN 

: 18 1955 5 66 

HEF SY sanctum escaerio 

; 1808 9 3 Format and put a record to the output file in parallel mode. 
2 

; ige? 13 masrdb = The address of the RDB for the master file record. 

; tee 13 5 revrdb = The address of the RDB for the revision file record. 

: 1990 1987 § i outputs: 

; ig 4 3 The specified records are output in parallel mode. 

: i 

: 1888 19¢9 | ROUTINE VALUES: 

; ig 1948 ; Always true 

; 1689 1348 inn 

; 1660 

: 1661 194 

: masrdb : REF BBLOCK, 

: 1608 1348 revrdb : REF BBLOCK: 

: 166s h file 
2 1683 1983 ‘ fline ' Amount of space — yh 
HR HR § Mcetezseamoen conte stn, ere ee ERT at lore cont 
; text. H 

; 1668 1988 halfline = (.dif$gl_parwidth - 5)/ 2; ' Calculate amount of space for each file 
: a ‘ 7 

; 1671 1987 Linedesc (Cdsc$a pointer] = .dif$gl oythets 4 «atin poe Bey descriptor/buffer 
; 1898 1988 CHSFILL (ZASCII™* *, .dif$gl_parwidth, .Linede ¥ 

3 1674 ' 

+ 1672 1962 i 0, then insert text for master file. 

; 1938 1908 hg ee = eaieed thet, aS appropriate. 

: 1964 i 

1878 1362 vd inten ip neo l_ignore Cign$v_exact] AND .masrdb (rdb$v_edited)] 

7 1909 THEN BECIA : 

ms Leer a ie eee 

; } $ 1369 sor PIE tone (dif$gli"masfdb, Linedesc, .halfline); 

: ND 

; 1685 1971 a es 
; 13) = = ehalfline, .masrdd (rdb$w_lengt 3 
; i378 EHEROVE Es texta length sasrdp Crapetatextd, 

i 1998 * Linedesc Easche po nter)); 

7 13%6 END; ‘ 

3; 16 ; 3 2 

: 1892 1998 i Remove tabs from text and insert mid-Line bar. 


r-——- ---- - 


wa 


eaee 3 


VF wr 


SN IO OOO 


PIRI et at et et ot ot 2 2 2 


ne a a ms a a is as tn a in — > es Ln 9 ss 


N—COOVOU Fw —O 


~~ 


51 


mo SOC- > - Oe eC - 


DOODOOOOOOO0O 
“ 


to nd ws od 4 oe bb a tl tt 


SeSSSSSSSSESF32E3 


bee: Sem-t0Re 25tB: 3S YMCTT OLietc 2 ye, 027 


te slate dif buf, -d1f$9 l.outbuf, .halfline, .halfline); 
CHSUCHAR thastal e! {Sat ai tsgt " suttut t shalfline ¢ a 

' 

i revrdb is not zero, then insert text for master file. 

exact or edited text, as appropriate. 


vrdb NEQ 


if 
Use 
re 

THEN IF oe 


ir 
gnore Cign$v_exact) AND .revrdb (rdb$v_edited] 


dee c ache Syyteogtn) ehalfline ¢ 5; 
ff aa Tapert urrec]) = .revrdb; 
et. a’text’ (dif$glorevfdb, Linedesc, .dif$gl_parwidth); 
ELSE BEGIN 
text_length = MINU (. mg tthe 4 cragsees crgete. lLength]); 
CHSMOVE (.text_length, revrd apse t_text 
wlinedesc Cdsc$a ete Bs. shalfline + 5); 
4 
: Remove tabs from remainder of text and output the Line. 
lineauds Cdsc$w_length] = 
translate_tabs (.dif$gl_outbuf, 
put _desc (Linedesc): 


RETURN true; 
END; 


-dif$gl_outbuf + 


OFFC 00000 PUT_RECORD PARAL 


LEL: 
.WORD Save R2,R3,R4,R5,R6.R7,RB.RI,R10,R11 
# 9€ VAB DIFSGL_MASFDB, R11 - 
A G 9E MOVAB DIFSGL~ IGNORE R10 
9 G 9E MOVAB ODIFSGL“PARWIDfH, RO 
8 G MOV DIFSGL- TBUF, RB 
‘ C SUBL2 #8, SP” 
6 0 MOVL  DIFSGL_PARWIDTH, 21 
9 fB OAT I MOVAR (RID: 
56 02 Cc? 00008 DIVLS #2, RO. 
06 AE 0 VL Dif GL. ouTaL NE rNEDESC® 
20 6€ 7 C movcS #0, (SP), #32. RI, OL INEDESC+4 
52 at MOVL —BASRDB, R2 
1A ry F Bees GL_IGNORE. 18 
15 08 A2 E1 BBC i. Baas ty 
84 CLAW EDESC 
68 DO 00 MOVL Roe DIFSGL_MASFDB 
06 AE OF 100 D pustg HARE bE SE 
ie 
85 bb 00080 Pus, RIT. 


4 P 
ReSoutur.832;1 


chalfline + 5, .difS$gl_parwidth, .dif$gl_parwidth); 


$98) 


= 


LL L&L&LQ&_£L LL LL LL LLL LAL LL LL Le ee ee, Le, Le el 


9 
Wbe=b80 1eseortage ia DISKSVMSRASTER:CDIF Ske SourPut .032;1° °° «185 


00000000 EF F CALLS » GET_RFA_TEXT ; : 
; 1$ aoy HALFL + 1389 : 
H g : 
50 12 a2 8 D cnPiy ite wan, RO ; | ; 
9 12 =#A MOVZWL (ne) 3 3 
3 23: aaa ExT LENG] : 3 
06 BE 16 A2 ; mOVC3 Teer T LENG 50¢R2). @L INEDESC+4 + 1975 ; 
D0 3$: PUSHL : 1980 ; 
i) PUSHL FLINE 3 $ 
50 D MOVL p Ee bur, RO : : 
8 pt : : 
v fF F CALLS gg LRANSLATE TABS : ; 
68 MOVL Tésoe OUTBUF > 1981. ; 
02 aos rc F MOVE a 26 OCHALE LINE) CRO? ; 3 
5 0 ag p MOVL VROB, R2 : 1987. ; 
4 6A $ Bact GL_IGNORE, 4$ > 1988 ; 
i 08 A fi BBC - Bt +5 iM : : 
6E Al 00090 ADDW3 “ ° HALT Line LINEDESC > 1990 ; 
000000006 D0 MOVL 2, DIFSGL_REVFDB : 1991 F 
69 DD 000A8 PUSHL DIFSGL_PARQIDTH : 1992 ; 
000000006 05 $F PUSHAB DIFSOL REVEDB 
00000000v EF é 88 CALLS a. GET_RFA_TEXT F 3 
dD 1 3 BRB : 1988. ; 
50 DO O00BC 4$ MOVL §HALFLINE, RO : 1995 ; 
50 12 A2 10 D 0008F CMPZV. #0, #16, ae : | 3 
é d0¢5 BGEQU fber : : 
9 12 ae 3 DC vz ss 3 : 
50 D cB S$ VL ae : : 
50 04 AE C ADDL CTE EDS? 5 MA : 1997 ; 
0S Ao 46 =A 5 8 D ve Text (Re ¥ “shop : ; 
5 9 D 68: vi FSGL ep ARUIOTH > 2004. ; 
DD C PUSHL : | : 
+4 PUSHL $ 3 
50 p £ MOVL ‘ FSGL_OUTBUF, RO ; ; 
05 A640 9F 000 PUSHAB 5(HALFCINE) CROJ ; : 
DD OO0E PUSHL RO : 
00000000v_ EF FB OO0E9 CALLS #4, TRANSLATE_TABS : | 
6E 08 F MOVW RO, LINEDESC F 
00000000v EF 5 PD Door CALS at. PUT_DESC 5; oe 
§f 1 06 FC mOVL ow}. RO * : 2007 
FF RET : 2008 


; Routine Size: 256 bytes, Routine Base: SCODES + ODBF 


— 
DjF -ouTPUT 


NOUS 


1 
1 
1 
1 
1 
1 
1 
1 
1 


Mew 


SASS SS SSS SSNS SSS SS 


PPA AAPAAANA SE BEEP LLL 


PEO OBVNOUNE UN "OO OOVNO UNE WO VEN O OONOUN EW “OOO VNOuUsS 
PDD BB BAMA PURININIPNYIINDPINIPNINIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPUIPUPOPIPIPINPYD — 


OONAMVEWN “OC OONOUVEW—O 


SANS NS 
VSAFANLSSSELFEALSERLS 


a > _ e , 


Be Se Oe Be Se Be Ge Be Se Se Se Ge Se Se Se Se Se Se Se SH Ge Ge Ss Ge Se FH Se Ss Se Se Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Ss Os Ss Ge Oe Ss Oe Se Ss Se Os oe 
a nai tn a A a a at at iii i at th a a tt tk a a tn a a a a ca es ss 4 
SN 


Sse 


~“ 


H 9 

15-Sep-1984 23:43: VAX-11 Bliss-3 

12=385-198e $3:43;33 DISKSVMSMASTER 
poyl int translate tabs (bufaddr, start, buflen, maxlen) = 


‘ee 
' 


i FUNCTIONAL DESCRIPTION: 


2.¥4,0-76 P 
‘COLE sRCSOUTPUT.832; 1 ae 13 


i Convert the tabs in the buffer, starting at start, to spaces. 
; Also replace Line feeds, form feeds, an carriage returns with 
: appropriate text. 

: INPUTS: 

bufaddr = Address of the input buffer. 

start = Address of first char to examine. 

buflen = Length of the input text. 

maxlen = Length of buffer 

: OUTPUTS: 

: ALL tabs are converted to spaces. 

ROUTINE VALUES: 

' 


Length of translated text 


leo 
LOCAL 
charptr, ! Address of character to translate 
endptr, ! Address of last byte to translate+1 
maxptr, } Address of last byte of buffer+1 

] 


fill, ' Number of characters to insert 
textaddr : REF VECTOR C, BYTE); ! Address of text to insert 
charptr = .start; 


endptr = .bufaddr + .buflen; 
maxptr = .bufaddr + .maxlen; 


WHILE (.charptr LSSA .endptr) 
DO BEGIN 
IF CHSRCHAR (.charptr) GEQU %x*20' 
AND CHSRCHAR (.charptr) LEQU %x‘7E" 


charptr = .charptr ¢ 1 


Starting character 
Last character to translate+1 
End of buffer+1 


Examine all characters 


Printing character 


BEGIN 
SELECTONE CHSRCHAR (.charptr) OF 
x°09"): ! Tab 


GIN 
ore =8- af -cherete - .start) MOD 8); 
soxtader = blanks [1]; 


Calculate number of spaces to use 
Insert blanks 


‘i 
OLE 


I 
333 3 


wr 


me a ee ed oe ed 


SSESSBSSetESeSeRESes 2737 
"OOOO VE UN “QOOOnNOur fwn—o WF wt w 


$-32 V4.0-74 Pp ) 
TERCCDLE Ske SuTPUT.B32;1 age 3 


ne 


tbeseo-t9ge a5:45:55  yareyt au 


C2x°OA'): Line feed 


BEGIN 
Sesgeder = (f; ' Insert <LF> 
Ll = .textaddr (0); ! Length of string 


textaddr = textaddr (1); ext address 


C2x'08'): ! Vertical tab 
BEGIN 
textaddr = vt; ! Insert <CR> 
fil’ = ,textaddr (0); ! Length of string 
textaddr = textaddr (1); i Text address 
END; 

Czx*0c'): ' Form feed 
BEGIN 
textaddr = ff; ' Insert <FF> 


fill = .textaddr (0); 
textaddr = textaddr (1); 


Length of string 
Text address 


C2Zx‘0D"): ! Carriage return 
BEGIN 
textad ! Insert <CR> 


taddr = cr; 
fill = .textaddr (0); 
textaddr = textaddr (1); 


Length of string 
Text address 


Corneevise3: ! ALL other characters 
textaddr = period; ! Insert period 
fill = .textaddr (0); i Length of string 


Text address 


SEER SS SESS ts ts eRe h nae 


AINE BEEBE EB EEE BE NNN BED DNIE BPD BF PDI B&F PTT 


textaddr = textaddr (1); 
END; 


1 

1} TES; 
1 § IF .fill GIR .maxptr - .charptr ! Shorten it if it goes past end of buffer 
1 THEN fill = .maxptr - .charptr; 

105 endptr = CHSMOVE ( ' Shift the unexamined text over 

1 MIN ( ' and update endptr 

1 -maxptr - .charptr - .fill, ' Torget space available 

1 gqneote - .charptr - 1), ! Number of source characters remaining 

1 -charptrei, 

1 spect’ + .fill)d; 

‘; haa = CHSMOVE (. fill, .textaddr, .charptr); ! Insert the text and update charptr 

118 END; 

114 

115 RETURN .charptr-.bufaddr; 

116 END; 


OFFC 00000 TRANSLATE_TABS: 


| 


13-00-1964 $3:43:33 VAX-11 Bliss-32 V4.0-74 Page $3 


14- DISKSVMSMASTER: CDIF .SRCJOUTPUT.B32;1 
.WORD Save R2,R3,R4,25,R6,R7,RB,R9,R10,R11 : 
$8 9° EF MOVAS Bt ais +f Ali : — 
AC 0 MOVL ART, CHARPTR F $ 
ADDL FLEN, BUFADDR, ENDPTR : 
A AC AC 
7 AC AC C1 ADDLS MAXLEN, BUFADDR. MAXPTR : 
\ 1S: CHL HARPTR, ENDPTR : 205 
008F 31 BRw 3 : 
20 68 4 28: CHPR HARPTR), #32 + 2052 
7E oF 91 CMPB HARPTR), #126 : 2053) 
4 1A BGTRU : 
§ 06 INcL HARPTR + 2055 
09 i % 38: cMpe (CHARPTR), #9 + 2060. 
50 08 ac g SUBL3 CHARPTR, START, RO + 2062. 
1 7A EMUL =s#1, RO, #0, -(SP) : 
E $ 78 EDIV. #8. (SP)+, RO, RO : | 
§ 08 Aad 9E MOVAB 8(RO), FILL : 
H MOVAB ANKS+1, TEXTADDR : 2063, 
1 BRB : 2058 | 
OA a 4 0040 4$: CAPR (CHARPTR), #10 : 066 
59 EF Ag H MOVAB LF, TEXTADDR + 2068 | 
2 1 BRB P 9 
08 68 9 5$: cnPe (CHARPTR), #11 : 2073) 
59 fF? AB 7 MOVAB VT, TEXTADDR > 2075 | 
1A 1 é BRB 3 2076) 
0c 68 9 63 6S: CMPB (CHARPTR), #12 + 2080 | 
59 E7 AB 7 MOVAB FF, TEXTADDR : 208 | 
OF 1 BRB : 208 
0D 68 4 7$: CAP (CHARPTR), #13 + 2087 
59 DF AB % MOVAB ck TEXTADDR > 2089 
04 1 BRB 3 990 | 
9 08 AB 9E gs: MOVAB PERIOD, TEXTADDR : 096 
$ 9A s: MOVZBL (TEXTADDR)+, FILL ; 
50 8 ¢ 10$:  S$UBL3  CHARPTR, MAXPTR, RO : 2103 
0 : CMPL fl L, RO : 
7 BLEG : 
$ D 9 MOVL RO, FIL : 2104 | 
C C 118 SUBL2 FILL, R : 2107 
53 A ¢ F SUBL3 CHARPTR, ENDPTR, R3 > 2108 | 
i) DECL R 3 
53 2 9 CMPL) =—sRO, -R3 : 
BLEG )~=s1 2 ; 
5 p 9A MOVL. R3, RO : 
6648 0. A 12% MOVC3 RO. I(CHARPTR), (FILL) CCHARPTRI > 2110. 
SA p A MOVL. 3. ENDP ; 
rs. 9 MOVES FILL, (TEXTADDR), (CHARPTR) : 2111. 
4 p AA MOVL R3, CHARPTR : 
FF6 BRW 1 : 305 
53 58 04 AC c 13$:  SUBL3 BUFADDR, CHARPTR, R3 : 211 
53 Db B MOVL «= aR3J RR ; 


nn ee 


= 


HEoseoctags GE:BE WMI Liege HZ ve 02742, Pane ge. 
04 00088 RET : 2116. 
; Routine Size: 185 bytes, Routine Base: SCODES + OEBF 


9 
1en8ep=188e F3i198:38 — PTecbumtaAStenccb ie secSourpur.esz; 19% «28 


a put hex octal header (number, length, cbarflag) = 


‘oe 
FUNCTIONAL DESCRIPTION: 

Put @ hex or octal record header to the output file. 
INPUTS: 

number = The number of the record. 


length = The Length of the record in bytes. 


Ss 


cbarflag = A flag that is 9 if not changebar format 
if changebar format and bar should be output 


te et eet ee ee ee re 


OONG VE WO OOVNOUNE Ww 


3 2 if changebar format and bar should not be ouput 
2 OUTPUTS: 
: None 
: ROUTINE VALUES: 
5 Always true 
1 ine 
; LOCAL 
changedesc : BBLOCK Cdsc$c sqblnd. ! Desc for change text 
: faodesc : BBLOCK Cdsc$c_s_Bln ! Desc for fao control string 
65 Linedesc : BBLOCK Cdsc$c¢_s_bini; i Desc for output string | 
Linedesc bdscéu. length) = .dif$gl_dumpwidth; ! Init output desc 
Linedesc Cdsc$a_pointer) = .dif$gl_outbuf; 
If Gi tSal flags (dif$v_hex) ! Init fao desc 
THEN BEGIN 


faodesc (dsc$w_length] = .hexheader £03: 
faodesc ([dsc$a_pointer] = hexheader (1); 


END 

ELSE BEGIN 
faodesc (dsc$w_length] = .octheader FO}: 
posdese dsc$a_pointer) = octheader [1]; 


ghengodess CéscSa_pointer) = change (1); ! Init change desc 
° r 
THEN chongodesc bdschu fonethd = ,change (0) 

dsc = 6; 


ELSE changedesc w_ length 


' 
Generate output string and write it to the file. 


Be Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Se Se Se Ge Se Ge Se Fe Ge Se Se Se Se Se Gs Se Ge Se Ge Se Ge Ss Gs Se Se Se SH Se Se Ge Se Se Ss Se Se Se Se Ss Oe Se Ss os 


ee a a a ka a ak a aa a at ad a a at 8 at i ig ak et at tt Ln = a 4 4 
: ~~ OC 
a a a an a a a Bi i Bi a a at at at th tt st a a ak Ss a st = ds a a a as es a a a 


oO PEA XAP MAMAN BEEP E EE —— 


SYS$FAO (feodesc . Linedesc, Linedesc, .number, .number, .length, .length, changedesc); 
put_desc (linedesc); 


WFeseo-tone ggst5:35 ya 


Olisse -32 Vv 


K-11 
SK$V ng MASTER: cbt she Sourpur.e32; :1 See (285 


0004 00000 PUT_HEX OCT en 


.WO Sev R2 3: 2117 
2 00000000 EF 9 MOV HEXHEADER, R2 : 
; C SUBL #26, SP : 
6 9900 90006 8 ; MOVW DIFSGL_DUMPwID DESC t 2151) 
AE 0 D 1 MOVL OD rScC~ gureur “LINEGESC C44 : 2152) 
08 000000006 1 1 BBC #1, DIF Acs, i$ 7 2156) 
AE 68 MOVZBW HEXHEADER “FAODESC : 136, 
C AE 01 OA . 90 MOVAB HEXHEADER+1, FAODESC+4 + 2157) 
OA 1 ns BRB t 2154) 
08 AE A2 98 00 g 1s: MOVZBW OCTHEADER, FAODESC + 2160. 
OC AE gp Ad 9E 000 MOV OCTHEADER+1, FAODESC +4 t 2161) 
14 Ae FF79. € 43 90 28: MOV CHANGE + i. HANGEDESC+4 + 2164 
0 of A f BLBC CBARF $ : 2165. 
10 AE FF ¢ 98 abe MOV ZBu CHANGE, ©: MANGEDESC : 2166, 
10 AE 84 04A 3$: CLRW  CHANGEDESC : 167 
10 AE 9F 00040 4$: PUSHAB CHANGEDESC t 2172 | 
08 AC pp 9050 PUSHL LENGTH : 
7E 4 AC 7D 0005 MOVQ NUMBER, =(SP) F 
04 ac DD 0047 PUSHL NUMBER ; 
14 AE 9F OOOS5A PUSHAB LINEDESC F 
18 AE 9F 0005D PUSHAB LINEDESC : 
24 ae 9F 000 PUSHAB FAODESC F 
000000006 00 g FB 0006 CALLS #8, SYSSFAO : 
00000000v_ EF i 4 bose CACC S a PUT_DESC : 2173. 
§ 01 »D 8094 MOVL sow}, RO . : 2175. 
04 00076 eT : 2176) 


3; Routine Size: 119 bytes, Routine Base: SCODES + OF78 


a —E —— = —_ “ oy 
—_————— 


9 
yoe2o00 | 13-Se0-1984 43:43:38 ONS cbntaaSfenscbie saeSourpur.esz;1°2* cots 


1 ROUTINE put_idline (fdb) = 
BEGIN 
? 
5 


z 


'ee 
FUNCTIONAL DESCRIPTION: 

Put a record containing file id Line to the output file. 
INPUTS: 

fdb = The address of the FDB of the file to be described. 
OUTPUTS: 

None 
ROUTINE VALUES: 

Always true 


SoS SS SS eSSESE3 


O00 


fdb : REF BBLOCK; 


Loc 


AL 
Linedesc : BBLOCK Cdsc$c_s_bin]; ! Descriptor for the output string 


iND 
filedesc = fdb Cfdb$l_fildesc] : REF BBLOCK Cdsc$c_s_bin]; ! resultant file name string descriptor 


Ssesessessseeseses 
AUPE WN —OO@BNOULSWw oO 
SELESFORSSESESE 


Be Oe Ge Se Se Se Se Se Se Se Se Ss Ss Se FF Ge FHS Se Ge Ss Ge Ge Ge Se Gs Se Se Se Se Se Se Ss Gs Se Se G4 Se Se Se Se Se Se Se Se Gs we 


ea ed ed nd ed od od od 


PRIPIARIPIPIARIFRIPIRIFIPDPIAIAFIAIAIAPIAPIA PIII a a i ad ed ed 


Linedesc Fdsc$a_ ointer]) = .dif$gl_outbuf; ! Init output desc pointer to buffer 
927 10 Linedesc gsc Su. qogtns = MINU ( ! Set output desc size 
928 11 -file + .filedesc Cdsc$w_length], 
9 if dif$gl_width); 
931 14 CHSCOPY ( 
.] § 15 efile (OJ, file (C1), ! "FILE strin 
93 16 filedesc Cdsc$w_length], .filedesc C[dsc$a_pointer], ' resultant file name 
9 1 ' fill never used 
: 5 8 . Linedesc Cdsc$w_length), .linedesc Cdsc$a_pointer]); ! Line buffer 
? put_desc (Linedesc); ! Output id Line 
939 § RETURN true; 
940 END; 


OFFC 00000 PUT_IDLINE: 
Save R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11 


58 00000000" EF 9 00 novae pave Paah 2177 
50 04 at is e 30098 Suate 1 RO 


2207 


-— 
' 


S= 


oe me ome oA ome oR Oe ome oe oP OMe Ome OFA BPR OF. OPA BP. BPR OR BPR BFR DPR DPR DPR DPR DPR DPR. DPR BPR BPR BP. OFA BM. OF. BFR OM. Bee OF. OA. Ome OAR Dee Om. OF. BF. BPR OM Bee OF. OP, BPR ORR OM OM OM me 


Be Be Oe Se Be Se BH Se Se Se BH Se Ge Bs Be Se Se Se Be Ge Se Se Se Ge Se Ge Ge Ge Se Ge Ge Se Se Se Se Fe Ge Se Fe Se Se Fe Se Se Se Se Se Seas Se Se Se Se Se teases 


ee a eR eee ee nee 


10 
DIF OUTPUT 15-Sep-1984 23:4 VAX=11 Bliss-32 v4.07 70 
et lhe =3007138t 93; 13; 33 DISKSVMSMASTER: (DIF. sre OUTPUT.B32;1 Page 94) 
04 AE 000000006 D 1 MOVL  DIFSGL_OUTBUF, LINEDESC+4 : 2209. 
5 98 8 19 MOV (RO), age 4 : 3395 
Bi ile UN: ft base 
2 1 cb é ADDL2 Ri, R ; 
000000006 ‘ b 3 HPL RQ. DTFSGL WIDTH : 2212 
50 000000006 0 08 MOVL DiFsGL WIDTH, RO ; | 
E 1$ MOVW RO, LIRED ; 19 
a 68 A MOVZBL Fite, R : 2215) 
9 67 3C MOVZWL (R?), RO + 2216 
» 6E f MOVZWL LINEDESC, RB + 2218. 
6 06 AE p VL. LINEDESC44, R6 : | 
58 00 01 AB 3A C 3 MOVCS R10, FILE+1, #0, RB, (R6) ; | 
D1 bee GEQ Ss : | 
56 A C0 00 f ADDL R10. R : | 
58 A ‘ 005 SUBL2 R10. R ; 
58 00 04 87 } id 0054 MOVCS R9, @4(R7), #0, RB, (RO) 
$P DD 00058 28: PUSHL SP t 2220) 
00000000v ef 01 FB 9005p CALLS #1, PUT _DESC ; | 
. OT OP bebe? | SE natn : 555 


; Routine Size: 104 bytes, Routine Base: SCODES + OFEF 


wae 


namesize; 


odese Fdscéu_ Length] = .dif$gl_parwidth; 
[om ee: dsc$a_ pointer) = .dif etre. outbuf; 
namesize = (.dif$gl_parwidth - 5 

1 

Output a Line of dashes. 


Build Line with both file names. 


5 
2] 
3 
54 
; 
i$ 
$1 
$6 put_desc (lLinedesc); 
64 
og 
6 charptr = CHSCOPY ( 
gue 
0 
71 
7 


Be Oe Se Be Oe Se Ge Se Se Se Se Se Se Se Se Fe Se Ge Se Be Ge Fe Ge ee Se Se Ge FH Se Se Ge SH Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Ge we 
SSSBSSSSSSSsSsssssseseseseseseseseessT 
Wut MEW — BNAUSWN—O”O MPwn— 


efile 
file C 
-dif$gl “masdesc dsc$w atength), 
y got toal, aqotons dsc$a “pointers, 
-namesize, 
74 “Uinedese dee$p.gointerd); 
75 CHSWCHAR_A (ZASCII ° charptr); 
7 CHSWCHAR_A (ZASCII ° °, charptr); 
7 fn one ty "i", charptr); 
3 ro MRAM CRSEHE S22 EMBED 
° rpotr 
998 80 $ CHscopy T ei 


VEercistt ARES Md 


61 f89 lL_parwidth = 2 * ((, 01 f$9l width = 1)/ 2) + 1; 


DISK K$V MSMASTER: cbt 


! Pointer into the output descriptor 
i Descriptor for the et oy string 
i Space left for each file name 


: 13k6 4 1 ROUTINE put_parallel_idline = 
Sci 5 BEGIN 
Se? § jee 
$7 : FUNCTIONAL DESCRIPTION: 
3¢5 1 i Put a record containing both file ids to the output file, 
320 § : in parallel format. 
9 i INPUTS: 
ah 2 fies 
H in 

HF bE curmrs: 
358 40 i None 
95 41 : 

r ROUTINE VALUES: 

$3 Always true 

Be 

48 LOCAL 

49 charpt 

0 ptt : BBLOCK Cdsc$c_s_bin], 


' Calculate width of parallel Listing 
i Init output descriptor 


' Calculate space left for each file name 


CHSFILL (ZASCII ‘= er elinedesc Cdsc$w_length], .linedesc Cdsc$a_pointer]); 


! Insert ‘FILE’ 
! Insert master file name 
blank fill 


buffer length 
buffer address 


' insert mid-Line bar 


reg 71 
rsre OUTPUT .B832; ° 9° (22) 


a 


—- 


3 5 

; 5 

? $009 9 

; 2010 92 
000000006 


58 


58 


56 


56 


Wr 


f 
i 


pA 


(ij, 
aitaatorewaes 
e 
iascif *'%) 
-namesize. 
-charptr); 


et 


put_desc (Linedesc); 


RETURN true; 
END; 


50 000000006 


20 00000000" 


20 


20 00000000° 


20 


5 


50 000000C0¢ 


ME 000000006 


dsc$w_length] 


10 
15-Sep-1 
14-Sep-1 


dsc$a_pointerJ, 


3 


Insert ‘FILE’ 

Insert revision file name 
blank fill 

buffer Length 

buffer address 


Output the Line 


OFFC 00000 PUT_PARALLEL_IDLINE: 


MOO — NES¥SSs NOO— NMOVTITWO"S NWOOCICIWCIO 


OrMmoe OrOooonrreco o- 


OrMRmeoe moor, 


WORB Save R2,R3,R4,R5,R6,R7,RB,RI,R1I0,R11 
SuBL2 #8, SP 

SUBL3 #1. DIFSGL_WIDTH, RO 

DIVL2 #2. 

ASHL #1, RO, DIFSGL_PARWIDTH 
INCL  DIFSGL/PARWIDTA 

MOVL DIFSGL~PARWIDTH, RO 

MOVW LIRED 

MOVL  DIFSGL_OUTBUF, LINEDESC+4 
SUBL2 #5, 

DIVL a2, R NAME SIZE 

MOVCS #0, (SP), #45, LINEDESC, @LINEDESC+4 
PUSHL SP 

CALLS #1, PUT_DESC 

MOV ZBL Fite R 

MOVZWL DIFSGL_MASDESC, R10 

MOVL DIFSGL MASDESC*4, R9 

MOVL NAMESIZE, R 

MOVL. LINEDESC44, R7 

MOVCS R11, FILE*1, #32, RB, (R7) 
BGEQ—s«s18 

ADDL2 R11, R7 

SUBL2 R11. RB 

MOVCS R10, (ROD, #32, RB, (R7) 
MOVL #545005600 (CHARPTR) + 
MOVE #32, (CHARPTR)+ 

MOVZBL Fite R10 

MOVZWL DIFSGL_REVDESC, R9 

MOVL DIFSGL REVDESC#4, RB 

MOVL CHARPTR, R 

MOVCS R10, FILE+1, #32, R6, (R7) 
BGEQ -2$ 

ADDL Ri0. R? 

SUBL2 = R10, Re 

MOVES RO, (RB), #32, R6, (R7) 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


Be $3:19:38 — MixavmGasStencch te sacSourpur.ese; 19% cass 


oOsBsrrmDy 


eres 
uae" 


; Routine Size: 


194 bytes, 


00000000v 44 


Routine Base: 


aT “Sele EAESE WMI SLse 


dD 28: PUSHL SP 
ne CALLS #1. PUT DESC 


SCODES + 1057 


2 v4.0-7% 
:CDIF.SRC 


p 
¢Sourpur.e32; 19% 


? 
(253 


; 2289 


: 33%) 


Sonne a 13:19:38 DESKSUMGMASTERSLDIF SeeSouTPUT.832; 1" mals 


ROUTINE put blank = 
BEGIN = 


‘ee 
' 

i FUNCTIONAL DESCRIPTION: 

: Put a blank Line to the output file. 
; INPUTS: 

None 

' 

' 

‘ 

' 

' 

‘ 

' 

' 

i 


ab et a 


WMPuTn DONA VELWN “OOOBNOU Fur 


i OUTPUTS: 

i None 

i ROUTINE VALUES: 

i Always true 


LOCAL 
lLinedesc : BBLOCK Cdsc$c_s_bin], 
tempbuf; 


Linedesc pgscéu. Length] = 0; 
Linedesc Cdsc$a_pointer) = tempbuf; 


put_desc (Linedesc); 
RETURN true; 
END; 


AUEWUN “CO OOVNOUSWN—O 


RIPPIN at at et et ot ot ot ot 


0000 00009 PUT_BLANK: 
WOR 


‘ Sexe og is : 2293 

SE oc ¢ SUBL2 #1 ; | 

04 AE CLRW Cingpes ; 2320 

08 AE 6E MOVAB TEMPBUF LINEDESC +4 > 2321 
00000000v EF =" 5 re ' CALS. L INepes¢ T_DESC oo 
34 } 5 1 MOVL #1. R ; 3335 

RET 3 2326 


3; Routine Size: 26 bytes, Routine Base: S$CODES + 1119 


oa 


i 
5 


° i 
So 


—_© 


ne 


eras a EH yA 


+ 
* 


FUNCTIONAL DESCRIPTION: 
Put a descriptor to the output file. 
INPUTS: 


Linedesc = The aqeress of the string descriptor for the text 
that to be output. 


OUTPUTS: 
None 
ROUTINE VALUES: 
Always true 


MAP 
lLinedesc : REF BBLOCK; 


AL 
status; 
dif$gl_outrab Crab$w_rsz] = .Linedesc Cdsc$w_length); 
dif ~ outrab Crab$i"rbf] = .Linedesc (dsc$a “pointer); 
IF NOT (status = Veeert = dif$gl 
IMEN. SIGNAL tet urtesene a. rat the ngutdesc, -Status, 
difSgl_outrab Crab$i_stv)); 


RETURN true; 
END 


-EXTRN = SYSSPUT 
0004 00000 PUT_DESC: 


i iy : 


DE 
000000006 90 
EA 
000000006 


OouMP,PUOYF PO 
m 


7 R2 


ti OUTRAB+ 34 
ef _OUTRAB*40 


YS at v4.0- Page 


STER:{DIF. she OUTPUT .B32;1 


75 
(24) 


g 


ah ah a al el a 
ee ee ee ae | 
sm mmen fmmmmmn nme ._: 2A ss & 


DAE QurPUT oe Seo-19Re 25:48 


000000006 0 caaen pS HR ma ae 


3 Routine Size: 64 bytes, Routine Base: SCODES + 1133 


33 bNScgumguastence 


aie co ERR 


: Page 2S 


3s 


10 £43: . . . 
vOu=OO) 1ecSeoctage 13:19:28 DASeSungmaSteRscDIF sRcSourput.e32;1°°% «255 
; 2087 


3 1 ROUTINE insert_lLinenum (rdb, Linedesc, condense) = 

3 BEGIN 

: ee 

; i FUNCTIONAL DESCRIPTION: 

3 Insert the Line number of the specified record in the output buffer. 

; i INPUTS: 

; i rdb = The address of the RDB of the record whose 

: : : Line number is to be inserted. 

; 2101 i Linedesc = The address of a string descriptor for the string that 

; ; § : the number is to be inserted at the end of. 

3 1 i condense = A flag that is true if the inserted number should not 

3; 2105 } be padded with mere than one blank one each side. 

3; 21 : The default is to pad the number out to DIFSC_LINENUM 

: ; : spaces. 

4 i . 

: $10 Bf mreasg 

3; 21i1 : The Line number is inserted in the output buffer, at the specified 

3 18 4 : position. 

: 2116 98 5 i ROUTINE VALUES: 

z 2115 9% : 

: 116 95 ‘ Always true 

: 514 7 $i 

; 118 98 

> 2121 i rdb : REF BBLOCK 

i I 3 401 Linedesc : REF BALOCK; 

3 2126 4 5 LOCAL 

3; 2125 4 numdesc : BBLOCK (dsc$c_s_bin] ' Descriptor for string to contain numeric t 
; ; $ "1 5 numbuf : BBLOCK (di f$c_Tinenua); ! Buffer to contain numeric text 
3 2128 4 numdesc (dsc$b_class) = dsc$k_class_s; ! Init RTL output aescriptor 

3 21 408 numdesc [dsc$w_length] = dif$c_Linenum - 1; 

: ; : numdesc (dsc$a_pointer) = numbuf; 

; , § ait OTSSCVT_L_TI (rdb (rdb$i_number), numdesc); ! Insert Line rumber in buffer 
5 21 a8 F .condense ' If inserting in parallel Line 
3 ; 5 ret THEN BEGIN ! Then put one blank on each side of number 
: 21 416 4 WHILE (CHSRCHAR (.mumdesc Cdsc$a_pointer)) EQL 2X ‘20") 

3 21 617 4 DO BEGIN 

3: 21 $18 4 numdesc qscho_pointer) = .numdesc (dsc$a poinser) +1; 

3 rs 630 + pundesc dsc$w_length] = .numdesc (dsc$w_Tength) - 1; 

5 216 4 ; 

: 128 3} CHSWCHAR (ZASCII * *, .Linedesc Cdsc$a_pointer] 


bgt purPuT Stine 3: a3:43: 


: 2146 4 ? - Linedesc pds w length 
3 \$? re — Cdsc$w _Length] = = ilinedesc Cdsc$w “Length 
: 216 6 ‘ 

3: 26 4 CHSMOVE (. esc Cdsc$w_length], .numdesc (Cdsc$ spointerd. 
3: 216 4 abine desc dsc len gthd + eouees 14 783 point 
: 21 4 CHSWCHAR ~ lined est decs $a telnet ned 

3; 21 4 oe gscé ength) 

: 21 § 4 Linedesc (Cdsc$w length —. Cdsc$w {8 ngth] 

3 ; Z ; § + .numdesc Cdsc$w_length] 
; 2155 4 RETURN true; 

3: 21 435 END; 


OOFC 00000 INSERT_LINENUM: 
. WORD 


0 

5E 10 §¢ 000 SUBL2 

$e AE et 000 vB 

08 AE 5 80 00009 vi 
oe ee 

7E 04 05 4 C1 Bnts ADDL3 
win FO Bias Gus 

2 OC Be 51 0024 1$ CMPB 

12 38 8 BNEQ 

OC AE oe 0 A INCL 

08 AE 8B 020 DECW 

50 08 } D0 00 2s: ROVE 
21 66 $c 00086 Rove uL 

1 04 ° c6 0039 ADDL2 

61 ¢ 0030 MOVB 

0 R6 004 INCW 
, Se eRe™ Be 
0 66 8 O4A MOVZWL 

o « @ “SRB Be 
; ae ae 

06 =A 6 ADDL2 

674 ) MOVB 
: és 1 MOVZWL 

1 01 ares Hi 5 se ab 

$5 31 B Beer MOVE 

4 F RET 


3; Routine Size: 112 bytes, Routine Base: SCODE$ + 1173 


33 VAX-11 Bliss-32_V 
DISKSVMSMASTER: cbt 


ei 
+ 1; 


er)) 


esc Cdsc$w Length’ 


o 15 


He: R2,R3,R4,R5,R6,R7 
al. MORES C3 
NUABUS ORUMDESC #4 


E 
sereEs* $4, #32 


NUMDESC+4 
NUMDE SC 


eat + RO 


-afar 
DW D—- 
Oovwmoz 
—— Om 

we 

»= 

— 


RO 
DESC+4, (RO) 


~ 

2e 
Do 
oOo 


oSRcSourPur. 632; ’ 


78 
29° 25) 


mr 


oe 


, ake et 


Hedeo-t96e 35:48:35 


Bliss 


3; 2) 4 GLOBAL ROUTINE init_h 

18 é S088 NE init hex octal = 

a. a3 gi 

; 16 4G] ¢ | FUNCTIONAL DESCRIPTION: 

3 2165 4h i Prepare for hex or octal output by building the required FAO 
3 198 S44 : dentrioters and qnitiat zing sone global oe soles. 

; 216 445 : 

3; 21 4h ! INPUTS: 

; 1 44 } 

a oe hse ton 

3 7 450 i OUTPUTS: 

3; 217 4 ; 

HR ORE] tom 

i 3176 494 ¢ | ROUTINE VALUES: 

> 217 4 i A 

143 a3 i lways true 

1 an ee 

; 188 461 fulldesc : BBLOCK Cdsc$c_s_bin), 

3: 21 rr] offsetsize, 

3 2185 46 partdesc : BBLOCK (Cdsc$c_s_bin]; 

5 des $s 

; 3 288 Calculate the size of each entry in a Line. 

: 2190 46 if .difSgl_flags Cdif$v_hex) 

Bo Ree eres hs 

; offsetsize = 12; 

we RWG, 

> 2195 4? i Calculate the number of Longwords to output per Line. 

; 138 rth : Force it to be a power of a. seis 

; 198 47 di fSgl ntsperline = MAXY ( 

; 1 “44 39 f$gl_width = difSc_linenum - 1) / (.offsetsize + dif$c_entrysize), 
3 4 If _(.d1f$gl_entspertine AND (.dif$gl_entsperline-1)) NEQ 0 

3 : ; difSgl_entsperline = .difSgl_entsperline AND (.dif$gl_entsperline-1); 
; rs ' 

: : : : Calculate the Line width. 

3 : dif$gl_dumpwidth = .dif$gl_entsperline * (.offsetsize + difSc_entrysize) + 8; 
; 4 ' 

; : : Pick the appropriate FAO descriptors to use. 

; 49 dif$gl_faofulldesc [dsc$w_length] = dif$c_maxfaosiz; 

3 492 ai fault footut (dese tHe teste tees = dif$gl_faoful buf; 


VAX-11 =32 v4.0- 
DISKSVMSMASTE 


0-74 Page 79. 
aie sac Soutput.es2; 19% «255 


tne ee ee Oe Os be ene ee Pes Es Bo ee ee Nts bt oe Be te es se ee es ee 
a a UR, GR ee ee 


bw} =] ~] ~] ~] ~] ~) ~] ~) ~~) ~~) ~ ) ~ ) ~ ) ~ ) ~ ) ~ ) ~ ) ~ ) ~~) ~~) ~ 1 ~ 1 ~~ 2) 


HSodeo-t9pe 25:45: 


oa 


1 difSgl_faopartdesc [dsc$w_length]_ = dif$c_maxfaosiz; 

} difSel taopartdesc Pgsc§x-Leogtn) = dif \_faopartbuf; 
1 If .di flags (dif$v_hex) 

1 THE In = 


4 
ca 
4 
4 
4 
bh 
5 
5 
5 
5 
5 


dsc s.pointer) = hexfull 

partdesc [dsc$w_length] = .hexpart 
ecteese dsc$a_pointer] = hexpart 

ELSE BEGIN 


fulldesc te 


ate dsc$w length] = .hexfull 
eet et 


fulldesc 
partdesc 


dsc$w_length] = .octpart 
perseees 


length] = .octfull Hy 
dsc$a_pointer] = octpart ; 


dsc a.pointer) = octfull 
; 


SSLESRENLSSRLELEE 


SYSSFAO (fulldesc, dif$gl_faofulldesc, dif$gl_faofulldesc, 


-d 
SYSSFAO (porteest. gl_faopartdesc, l_faopartdesc, 
-difSgl_entsperline * dif$c_entrysize); 


RETURN true; 
END; 


VFN —OOOnOu 


Od ad ad dd 
Oufwn—o 


o 
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3 VAX-11 Blisses2 v4.0-7 
DISKSVMSMASTE 


lLentsperline, .dif$gl_entsperline * dif$c_entrysize); 
2 atts gies _— 


WEX_OGTAL. Save R2,R3,R4,R5,R6,R7,R8 


T 
$ 

$GL_FAOPARTDESC, R7 
S$GL-FAOFULLDESC, R6 
$6L ENT SPERLINE. R5 


1, DIFSGL_FLAGS, R3 


NI 
YS 
IF 
IF 
F 
x 
6 
1, 
3° FFSETSIZE 
$ 


I 
$s 
D 
i) 
Dd 
H 
a 
# 
R 
4 
2 


#12, OFFSETSIZE 
#7, DIFSGL_WIDTH, R1 


a4. 
R0. RI 

3 

wi, RI 

RI DIFSGL _ENTSPERL INE 

-1(r1), R 

Ri, R2 

4 

Re. at 

Ri. DIFSGL ENTSPERL INE 

u SG, _ENTSPERLINE. R 

8(RO) DIFSGL DUMPWIDTH 

#40, OIFSGL FROFULLDES¢ 
DIFSGL_FAOFOLLBUF, DIF SGL_FAOFULLDESC +4 


Pete Se Se Se Se Se Se Se S> See Se Se Se Se Se Se Se Se Se Se Se Ge Fe Se Be 


P p o 
ReCDIE SRCTOUTPUT.B32:1 99 (20) 


A. 


se ee ee be Bene bs Ot ee ed He Pet Fane Od Be Bd nt Dat fen me Fmt Oe et ae ee Pe mt et hs te ee me at ee ee 


DIF OUTPUT 19-29, -1 :4 VAK-11 Bliss-32 V4.0-74 Pa 1 3 
QP ep- K Vv F.S 3 P | 
et 14-5 et 3: 43: 33 DISKSVMSMASTER: (DIF Oca OUTPUT 832;1 oe 8 | 
67 7A mOvw #40 DIFSGL F AOPARTDESC : 2493 $ 
04 ar 000000006 f 5 BOVAB D FSGL FAO OPARTBUF, DIFSGL_FAOPARTDESC +4 : 496 = 
08 AE 64 aby ieu HEXFULL, FULLDESC : 138 DI 
> @ 01 AG MOVAB HEXFULL41, FULLDESC+4 3 2499) D1 
6 6C AG MOVZBW HEXPART, PARTDESC + 2500 DI 
06 AE 4D Ms BOVAB 4 XPART+1, PARTDESC+4 : ? 1 bl 
08 AE 6C AG 98 2 5$ MOVZBW OCTFULL, FULLDESC 3 2506 DI 
C AE 6D AG SE MOVAB OCTFULL41, FULLDESC+4 3 2505 DI 
BE 9088 C4 MOVZBW OCTPART, PARTDESC : 306 DI 
06 A 08 4 ; MOVAB OCTPART41, PARTDESC+4 3 2507 | DI 
7E § 68: ASHL #2, R2, -(SP + 2511) D1 
dD 8 PUSHL R : DI 
DD PUSHL R6 3 2510 D1 
& bb 89 PUSHL R6 ; D1 
18 AE F 00088 PUSHAB FULLDESC ; r) 
68 FB F CALLS #5, SYSS$FAO ; 4 
7E 6 g 7 C ASHL age DIFSGL_ENTSPERLINE, -(SP) $ $213 | 
DD 3 PUSHL R : 2512) 
7 0d 000C PUSHL R7 : 
Oc AE OOF oc PUSHAB PARTDESC : 
68 04 FB aa CALLS #4, SYSSFAO : 
V P é 
: "et toe Ry a 
| 


z Routine Size: 211 bytes, Routine Base: SCODES + 11€3 
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10 
1.se 1984 23:43: VAX-11 Bliss=-32 V4.0-74 Pa 
127808- 1382 93:43:38 DLSKSVMEHASTERSLOIE SRC SOUTPUT 832; 1 oe BF 
ROUTINE get_rfa_text (fdb, Linedesc, width) = 
BEGIN 


———— 


VFN —OCONOUS WH O0OOn 


tee 
' 


i FUNCTIONAL DESCRIPTION: 
Get a record from an input file using its RFA, and insert it in 


the output Line. 
INPUTS: 
fdb = The address of the FOB for the input file. 


PUPVIVSUSVSVSVSVSISVSISISIIS 


CURREC specifies the record to be read. 


=~ 


FIFI ES 
Wwn—o 


LEASES Sao 


Linedesc = The address of a character string descriptor for the 
output Line. 
width = The size of the input buffer specified by Linedesc. 
OUTPUTS: 


The read record is appended to Linedesc. 
ROUTINE VALUES: | 
Always true 


o 
2 OS 8 dP a 8 ns Od Gd PO Bs BW Os Ot 


a a a a a dd 0 


P 
fdb : REF BBLOCK 
Linedesc : REF BBLOCK; 


rdb : REF BBLOCK. 
status; 


rab = .fdb fp iabst _rabptr 3 
rdb = .fdb (fdb$l_currecd; 


rab Crab$b rec) = rab$c r fai 
CHSMOVE (r¥aSc_size, rdB (rdb$w_rfa), rab Crab$w_rfal); 


IF NOT (status = SGET (RAB = .rab)) 
THEN SIGNAL_STOP (dif$_readerr, 1, .fdb CA gest tildesc). 
-status, .rab Crab$i_stv)); 


If .rab Crab$w_rsz) GTR 0 
THEN BEGIN 
refix_len = gl inedese Cdsc$w_ length); 
¢ 


Init RAB for RFA read 


PAA AMMAN EE BEEP LLL EE 


Get the record 
If error, then signal 


If record size greater than zero 


ceereereercrecceercrecccecrcer oe 
ts ne en 0 Gs as es 0 Oe He 8 Be Oe Ge Ot BE PO OS Os mt —_—e— 


Set amount ef buffer already used 


Pew al al ah ah ab sh dh ah db db dh db deb ch dh hh dh dh db hh ibd ch deb deb th dh dh th th bh dh dh sh Ah Ah Ah AL AL Ah Ah As 


inedesc (dsc$w_length) = MINO (.width, i Calculate size of output string 
.linedesc Cdscdw_length) ¢ .rab Crab$ursz)); 
CHSMOVE (.Linedesc ix ten ! Move record into buffer 


rab [rab$ 


dsc y_ length) - .pre 


_rbft nedesc Ldsc$a-pointer) + .prefix_len); 


se ee a ate ies We oe : eek 


$ep-1984 23:43: VAX-11 Bliss-32 V4.0-74 P 3 
at 93:93:38 DLKSVMGMASTER CDI SRCTOUTPUT .832; 1 age 55 


3 74 END; Sym 
P+ 75 eee: 
3 i ‘ LIB! 
: 7 ! After getting a record by RFA, we must reset the RMS pointers for L18 
3 4 subsequent sequential reads to work. te 
3 0 rdb = .fdb Cfdb$l jestrecd; L1B8 
; 1 IF .rdb rdb$v_eof L168 
; ¢ THEN edb = .fdb Cfdb$Si_lastrfal; LIB 
; IF .rdh NEQ 0 L18 
$ 4 BEGIN LIB 
3 5 CHSMOVE Crtese size rdb Crdb$w_rfaj, rab Crab$w_rfal); L18 
; 6 4 IF NOT (status"= SFIND (RAB = .fab)) | L1B 
3; 2510 58 THEN SIGNAL_STOP (dif$ rgedert. 1,_.fdb Cfdb$l_fildesc], ! If error, then signal L18 
3 2311 4 -Status, .rab Crab$i_stv)); & LIB 
3 \§ 89 rab Crab$b_rac) = rabsc seq; ! Reset RAB LIB 
: 1 590 4 IF NOT (status = $GET (RAB = .rab)) | LIB 
3 2316 591 THEN SIGNAL_STOP (dif$ rpeterr 1,_.fdb Cfdb$l_fildesc], ! If error, then signal L168 
: 2315 238 -Status, .rab Crab$l_stv)); L1B 
3 1 S93 END; 

: 1 594 LIB 
3 18 595 RETURN true; L18 
3 19 596 END; | LIB 
L18 
LIB 
L186 
-EXTRN SYSSGET, S\'SSFIND 4 
OFFC 00000 GET_RFA_TEXT: L18' 
~WORD Save R2,R3,R4,R5,RE,R7,RB,R9,R10,R11 3 2517 | L186 
5B 000000006 00 43 000 MOVAB LIBSSTOP, R11 3 LIB! 
5A 00000000G 8F oD MOVL #DIFS$_READERR, R10 g L1B! 
57 Be AC 08 MOVL FDB, R7 : 2557. L168! 
56 0 a? D MOVL  48(R7), RAB 2 | Li: 
58 67 p MOVL (R7), RDB : 2558. L1B! 
1E a6 2 MOVE #2, $9 (RAB) : 2560. L1B' 
10 A6 0c Ag 96 2 MOVC3 #6, 12(RDB), 16(RAB) : $26} | L168 
6 DD PUSHL RAB > 2563 | LIB! 
000000006 98 Boi CALLS #1, SYSSGET 3 L18 
9 D VL —- RO,_ STATUS : | 1B 
OF E LBS STATUS, 1$ ; L1B! 
oc AG DD PUSHL  12(RABS : 2565 | LIB 
59 00 PUSHL TATUS Z L168 
38 a? OD SHL (R7) : 2564 L18 
1 OO PUSHL : L18 
A 00 PUSHL R10 3 L18 
68 5 F CALLS #5, LIBSSTOP : LI8 
22 Ab 8 TST 4 (RAB) > 2567. Li8' 
20 BEQL a L18 
29 08 iA MOVL LINEDESC, RO ; 2569 | L18 
1 60 3¢ MOVZWL (RO), PREF IX_LEN ; L18 
60 53C¢ MOVZWL (RO), R3 3s 2371 L18 
22, =A MOVZWL 34 (RAB) R2 : L168 
Se C ADDL2 R2, R F L18 

OC AC OD VL WIOTH, R2 : 

3 D1 CMPL =e R2, RS ; 

8 BLEQU 2 3 


" 
1$-Se0-1984 13:15:38 UaScuntaastenccbif sacSourpur.esz;1 2%" 29s 


Ba 


tad 
P+" 


5 : 4h $ MOVL R3, R2 : Syn 
: 28: MOVW (RO) : 3570 oes 
; 68 Soars (RO) o R3 3 2572. ti 
04 8041 28 e 3 § MOVCS R3, @40(RAB), @4(RO)CPREFIX_LENJ 3 2573. Lig 
08 A? OD 3$: MOVL 8(R7), RDB + 2580. LIB 
04 08 A 0¢ & BBC # g(RDB) 4$ : 2581 Lie 
5 1c OA p 7 MOVL 28(R7), RDB : 25 ¢ LIe 
45 4$: BEQL «= 6 > 2583. Lie 
10 Ab Oc AB 06 2 MOVC3 #6, 12(RDB), 16(RAB) : 2585. Lie 
DD A PUSHL R : 2586 | Lie 
000000006 99 gg. § CALLS #1, SYSSFIND : Lig 
8 D YL RO STATYS : Lie 
OF E8 00096 LBS STATUS $ ; | LIE 
0c Ab DD 000 PUSHL 12(RABS : 2588 LIe 
55 DD 0009C PUSHL STAT § : LI8 
38 486A? «ODD OOge PUSHL 6(R7) 3 2587) Lie 
91 DD O00A PUSHL #1 ; LIe 
A DD OA PUSHL R10 : MAT 
6B 05 FB OOOA CALLS #5, LIBSSTOP ; | MAT 
1E Ab 94 9008 5$: CLRB © 30 (RAB) + 2589) MAT 
56 DD 000AB PUSHL RAB + 2590 STR 
000000006 00 1 FB OO0AD CALLS #1, SYSSGET : 

59 0 DO 00084 VL —«RO,:~STATUS ; STR 

OF 9 €E8 00087 LBS STATUS, 6$ ; 
OC A6 DD OOOBA PUSHL 12(RABS 7 2592) STR 
59 DD 000BD PUSHL STATUS : STR 

38 A? DD O00BF PUSHL 56(R7) : 2591) 
01 Dd 000C2 PUSHL #1 : STR 

5A DD 000C4 PUSHL R10 : 
68 05 FB 900¢6 CALLS #5, LIBSSTOP : STR 
50 1 00 000C9 6s: MOVL #1. RO : 2595 STA 
04 000CC RET : 2596 sth 
; Routine Size: 205 bytes, Routine Base: $CODES + 12B6 si" 
| STR 
; 20 597 1 | STR 
> 3321 598 1 END ! Of module | STR 
: 2322 599 0 ELUDOM | STR 
STR 
STR 
STR 
STR 
.EXTRN LIBSSIGNAL, LIBSSTOP i 
PSECT SUMMARY STR 
Name Bytes Attributes AY 

SOWNS 401 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL. CON,NOPIC,ALIGN(2) 

SCODES 4995 NOVEC.NOWRT, RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(O) STF 
SPLITS 562 NOVEC.NOWRT, RD .NOEXE.NOSHR. LCL. CON.NOPIC,ALIGN(2) STR 


ybe=880 iesbeoctgge G3:t3:35  yMdUathlttek2i9 vSRESOUTPUT .832:1" 9" (29) 


: Library Statistics 
: ee Symbols eenrewreece Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUAZ8:(SYSLIBISTARLET.L32;1 9776 24 0 581 00:01.0 
H COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OUTPUT/OBJ=0BJ$:OUTPUT MSRC$:OUTPUT/UPDATE=(ENH$: OUTPUT) 
ze: 4995 ¢ + 963 data bytes 
Run Time 


; Elapsed Time: 09 :4¢ :46. 


; 1906 
; Lexenes/CPU-Rin; 20144 
; Y Used: 262 pages 
; vee ation Complete 
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